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ABSTRACT 

NPS-PASCAL is a Naval Postgraduate School research project 
whose goal is the implementation of the PASCAL programming 
language on a microprocessor-based system. The NPS-PASCAL 
compiler consists of two software subsystems, the first analy- 
zes the source program and produces a machine-independent 
intermediate form, while the second produces target machine 
code. The system is designed to satisfy the constraints of 
Standard Pascal, as defined by the British Standards Institute/ 
International Standards Organization Working Draft of Standard 
Pascal, y 

The analysis subsystem, defined herein, accomplishes the 
lexical, syntactic, and semantic analysis of a PASCAL program. 
It has been implemented on an Intel 8080 microcomputer, running 
under the CP/M operating system. 
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I. INTRODUCTION 

?fy BACKGROUND 
f 
NPS-PASCAL is an implementation of the Pascal language on 

an Intel 8G80 microcomputer system. NPS-PASCAL is a continuing 
research project being developed by students in the Computer 
Science Curriculum at the Naval Postgraduate School, Monterey, 
California. The original NPS-PASCAL design and implementation 
was done by MAJ Joaquin C. Gracida, USMC, and LT Robert R. 
Stilwell (SC) USN, in their thesis submitted in June 1978. 
Their work is contained in Reference 1. MAJ Gracida and LT 
Stilwell completed work on the basic constructs of the Pascal 
Language by utilizing a single-pass compiler that generated 
intermediate code; and a code generator which then generated 
8080 code from the intermediate code. With many of the Pascal 
constructs not implemented, thesis work was continued in 
October 1378 with the goal of producing a complete and debugged 
NPS-PASCAL compiler. Follow-on thesis work will lead to a 
NPS-PASCAL compiler- interpreter, and a complete NPS-PASCAL 8 08 
code generator. in the discussion which follows, it is assum- 
ed that the reader is familiar with the contents of Reference 1. 

B. APPROACH 

The first step in concinuing the development of NPS-PASCAL, 
was to study the program listings and thesis to gain familiar- 
ity and insight, into the project., A determination was then 
made to complete all work remaining on the compiler portion of 



NPS-PASCAL, to the extent that it would meet or exceed the 
constructs being proposed for the standardization of the Pascal 
Langugage. Consequently, the BS I/ISO Working Draft 3 for 
Standard Pascal (BSI is the British Standards Institute; ISO 
is the International Standards Organization) was used as a 
source of Standard Pascal constructs (see reference 2) . 

The next step was to acquire an understanding of the PL/M 
cross compiler available on the CP/CMS time-sharing system on 
the IBM 360-67 at the Naval Postgraduate School. Tied to this 
was an understanding of CPM80, an expansion on Intel's INTERP/ 
80, which provides the basic CP/M input/output facilities. 
The simulator contains the required facilities to test and de- 
bug PL/M programs. Reference 3 gives a detailed account of 
how to utilize the PLM Compiler and CPM8C. 

The remaining effort consisted of making additions, correc- 
tions, design changes, isolating bugs, running test programs, 
and developing user assistance programs. in order to imple- 
ment certain constructs of the language, it was necessary to 
recom ruct the original grammar. Appendix E lists those fea- 
tures t. • NPS-PASCAL that rfere not . implemented at the start of 
this project, and the features known to contain bugs at pro- 
ject completion. 

Due to the non-existence of a Pascal Compiler Validation 
System, validation programs were taken from various textbooks 
on Pascal to test the compiler. Since these texts gave sample 
programs that demonstrated specific Pascal constructs, each 
NPS-PASCAL construct was tested as described below. 



As a language construct was implemented in the compiler, 
an associated validation program was compiled to check proper 
operation. However, it became apparent early in project de- 
velopment that since there was no associated construct imple- 
mentation in the code generation portion of NFS-PASCAL, check- 
ing the generated intermediate code would prove difficult. 
The solution was the development of the first of two user 
assistance programs. The NPS-PASCAL DECODE program translates 
the intermediate code and prints out the mnemonic form of the 
compiled code, along with the associated parameters for each 
mneumonic. A complete explanation of the DECODE program ap- 
pears in Appendix F. 

In compiling a validation program that revealed improper 
intermediate code, CPM80 was used to pinpoint errors in the 
compiler. Changes were then made to the source program, which 
was then recompiled using the PLM80 compiler. The validation 
program was then recompiled, and the intermediate code trans- 
lated by the DECODE program, to ensure proper construct imple- 
mentation in NPS-PASCAL. 

As more constructs were implemented and tested, a major 
realization surfaced — the need to access the symbol table 
during and after program compilation. The original approach 
taken to this problem was the addition of a PRINT$SYMBOL$TABLE 
subroutine to the source code. This routine printed out a 
symbol table entry's location, type, printname, and allocated 
PRT location, if any. This solution was abandoned with the 
decision to write the symbol table out to its own separate 



file, thus providing NPS-PASCAL with the ability to access the 
symbol table at translation time. Consequently, the second 

u^er assistance program was developed — the NPS-PASCAL SYMBOL- 

( 
.TABLE program. This program offers the NPS-PASCAL user a com- 
plete printout of tht: information stored in the symbol table 
following compilation of a Pascal program. Appendix G details 
the use and abilities of the SYMBOLTABLE program. The follow- 
ing section describes the implementation of the compiler in 
detail. 
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' II. NPS-PASCAL COMPILER IMPLEMENTATION 

A. NPS-PASCAL LANGUAGE BACKGROUND 

NPS-PASCAL is an implementation of PASCAL based on the 
BSI/ISO Working Draft of Standard Pascal (2) , henceforth referr- 
ed to as "STANDARD PASCAL." NPS-PASCAL is in complete compli- 
ance with STANDARD PASCAL'S definition of a conforming process- 
or, with the following exceptions: 

(1) Identifiers, directives, and labels can be of any 
length, as prescribed by STANDARD PASCAL, provided 
their uniqueness can be determined by the first thirty 
characters. 

(2) Integers are limited to any value between -32,768 arid 

+ 32,767. Real values can take on any negative or po.ci.- 
tive valu.. consisting of fourteen digits multiplied by 
ten to the -64th power through ten to the +S3rd power. 

(3) "EOP" is a special symbol, or reserved word, Li the 
NPS-PASCAL vocabulary indicating "end of program." 

Consequently, any program that conforms to the rules of STAN- 
DARD-PASCAL, and meets the above three qualifications, consti- 
tutes a syntactically correct NPS-PASCAL program 

To add increased versatility to PASCAL, various features 
were implemented in NPS-PASCAL. These additions were designed 
to parallel the constructs of UCSD (Mini-Micro Computer) 
PASCAL (6) , the current leader in PASCAL Systems for micro- 
computers. The implementation defined features are discussed 
in section II. F. 



The University of Toronto's parse table generator (5) 
was used to specify NPS-PASCAL in LAIR M) grammar form. The 
program operates on the IBM 360/67 and produces the parse 
^tablps for the language, thus permitting extensions to be made 
in a|n easy and efficient manner. A complete description of 
the 'NPS-PASCAL grammar, its generation, and execution proced- 
ures are contained in »>3 NPS-PASCAL User's Manual (8). 

B. COMPILER ORGANIZATION 

The compi2.er structure, diagrammed in Figure 1, requires a 
single pass through a source program to produce an intermediate 
language file while printing an optional source listing at the 
console. The one pass approach was taken to provide fast com- 
pilation and to reduce the required work and size of the com- 
piler. The single drawback to this one pass compiler is the 
Inability to specify the exact position where program execu- 
...on is to continue after a branch. Therefore, labels are 
placed in the intermediate code where execution of the pro- 
gram is to continue. The resolution of label locations is 
accomplished by the- code generating program as it scans the 
intermediate form. 

The compiler builds the symbol table, converts all numbers 
in the source program to their internal representation, and 
generates the intermediate file and symbol table file on the 
diskette. Compiler parameters can be set to control listings 
of the source program, token numbers, or production numbers. 
Should program errors be anticipated, another compiler para- 
meter can surpress the generation of the intermediate file. 
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C . SCANNER 

The scanner analyzes the source program character by charac- 
ter and sends a sequence of tokens to the parser. The scan- 
ner provides a listing of the source statements, when directed, 
eliminates comments, and reads the compiler parameters. 

The scanner is divided into four sections which are select- 
ively executed depending on the first non-blank character of 
the token. Upon determination of the scanning section, the 
remainder of the token is scanned and placed in the accumulator 
array ACCUM. The first byte of ACCUM contains the length of 
the token. In the case of tokens that exceed the size of 
ACCUM (32 bytes) , a continuation flag is set to allow the scan- 
ner and parser to accept the remainder of the token. 

The four sections comprising the scanner handle strings, • 
numbers, identifiers or reserved words, and special charac- 
ters. The string processing section is invoked whenever the 
first character of a token is a single quotation mark. The 
scanner then analyzes each succeeding character until a second 
quotation mark is scanned, indicating the end of the string. ' 
The program section that manipulates numbers determines the 
type of the number being scanned as it processes each charac- 
ter. This determination is used by subsequent routines that 
perform type checking and conversion to internal representa- 
tion. When the scanner recognizes an identifier, it searches 
the vocabulary table (VOCAB) to determine if the identifier 
is a reserved word. If a reserved word is matched, the scann- 
er returns the token number associated with the reserved 



word's position in the VOCAB table. Special characters also 
found in the VOCAB table, are handled as separate tokens ex- 
cept in two cases. If a period is followed by numeric charac- 
ters without intervening spaces, the special characters 
section of the scanner assumes that a real number is being 
scanned. This program section handles the real number in the 
same manner as the number section mentioned above. The second 
exception to special characters occurs when a pair of special 
characters are scanned one right after another. The scanner 
will pass both characters as a single token after assigning 
the token number from the VOCAB table. 

D . SYMBOL TABLE 

*.- :.e symbol table is used to store the attributes of labels, 
constants, type declarations, variable identifiers, procedures, 
functions, and file declarations. This stored information is 
used by the compiler to verify that the program is semantically 
correct and to assist in code generation. Access to the sym- 
bol table is accomplished through various subroutines using 
based global variables to uniquely address the elements of 
each entry. 

1. Symbol Table Construction 

The symbol table is modelled after the Algol-M symbol 
table (9) . It is an unordered linked list of entries which 
grows towards the top of memory. Individual entries are 
either accessed via a chained hash addressing technique as 
illustrated in Figure 2, or by means of address pointer fields 
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contained in other entries. This latter method of access is 
required since not all entries in the symbol table have an 
, identifier, called the printname, associated with them. 

Each location in the hash table heads a linked list of 
entries whose printname, when evaluated, results in the same 
: hash value. A zero in any location in the hash table indicates 
that there are no entries whose printname produces that value. 
During symbol table construction or access, the global variable 
PRINTNAME contains the address of a vector whose first element 
is the length of an identifier in a single byte, followed by 
the identifier's characters represented in ASCII format. The 
variable SYMHASH contains the hashcode value which is the sum 
of the printname 's ASCII characters, modulo 128. Entries that 
produce the same hash code value are linked together in the 
symbol table by a chain which is accessed via the individual 
entry's collision field. The chain is constructed in such a 
way as to have the latest entry constructed at thii head of the 
chain. 

Each entry in the symbol table contains a number of fields, 
some of which are. common to all entries, and some of which 
apply only to particular types of entries. All entries have 
the same first three fields: the collision field located in 
the first two bytes; the previous symbol table (PRV$SBT3L$- 
ENTRY) entry address field located in the third and fourth 
byte; and the form field (FORM) located in the fifth byte, as 
shown in Figure 3. The remaining fields are used to uniquely 
describe each entry's attributes and particular identifying 
characteristics. 
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There are eight different types of entries found in 
the NPS-PASCAL symbol table. Each of these types has a unique 
three bit code in its form field. The three bit code for con- 
stant entries, for example, is 001; the code for variable en- 
tries is Oil. The remaining bits in the form field describe 
other particular characteristics of the type involved. These 
characteristics are described in detail as each type of NPS- 
PASCAL symbol table entry is presented below. 

a. Label Entries 

The form field of a label entry has the constant 
byte value of zero. A single byte follows the label's form 
field containing the hash value of the label's printname. 
The length of the label follows in the next one byte field. 
The individual printname char^fggJEks §&& &*£* after the length 
field. A two byte field following tKe'^Jname^aacters 
contains a sequentially generated integer value wri*§b>T 
assigned as the label's internal label number. This- value" 
used as the target for branching in the intermediate code. 
An example of a label declaration with its associated symbol 
table entry is shown in Figure 4. 

b. Constant Entries 

The form field of a constant symbol table entry 
identifies the type of entry, and the particular type of the 
constant as well. There are five valid types of constants in 
NPS-PASCAL: an unsigned identifier where FORM = 01H; a signed 
identifier where FORM - 41H; an integer where FORM = 09H? a 
real value where irORM = UK; and a string constant where 
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FORM - 19H. Following the form field of the constant entry 
are the printname hash field, length field, and the printname 
characters. 

[ The value field may consist of another length field 

[ 

and the printname characters in the case of identifier and 
string constants, or it may contain the internal representation 
of a constant number (two bytes for integer values and eight 
bytes for real values) . Figure 5 is an example of a constant 
entry. 

c. Type Entries 

NPS-PASCAL has two kinds of type entries in its 
symbol table: simple type entries and type declaration entries. 
The simple type entry can also be one of two types. It indi- 
cates that either one of NPS-PASCAL* s standard types is being 
assigned to the entry, or that a predefined complex type dec- 
laration is to be assigned. In the latter case, a simple type 
««*.^» > c- tr»t>/^A ■* vs +-Vi,» c^; ! mK/-NT table with s. ^ointer to a t^ 7, oe 
declaration entry. In the former case, one of the following 
standard types will be «-.. .gned the type entry. 

Integer - The values of this type are a subset of the whole 
numbers whose range is the set of values: 

-maxint,-maxint+l ,...,-1,0,1,... ,nr>axint-l ,maxint 
where maxint = 32,767. 

real - The values are a subset of the real numbers consisting 
of fourteen digits multiplied by ten to the -64th 
power through teff to the +63rd power. 
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boolean - The values are denoted by the identifiers "false" 
and "true," such that false is less than true. 

char - The values of this type are the defined set of charac- 
ters described in reference 8. The following relations 
hold for CHAR types: 

(1) The subset of character values representing the 
digits to 9 is ordered and contiguous . 

(2) The subset of character values representing the 
upper case letters A to Z is ordered and contiguous. 

(3) The subset of character values representing the 
lower case letters a to z is ordered and contiguous. 

Type declaraiton entries, however, are generated from user 
defined types found in the source program. It is possible to 
define a chain of type declarations. An example of this would 
be an array of the type array which is itself of type integer. 

The symbol table entry for a type in as follows. 
An integer type has the FORM value of 42H, a real type has tr.e 
FORM value of 4AH, a character type has a FORM value of 52H, 
and a boolean type has a FORM value of 5AH . A FORM value of 
7AH indicates that a type declaration entry must be accessed 
to determine the complete type of entry. The field following 
the form is a one byte field containing the hashed value of the 
printname. The next byte contains the printname' s length, 
which is followed by the printname characters of the type 
identifier. The last two bytes contain the address of the 
specified type. An example of a simple type entry is given in 
Figure 6. 
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There are seven different user definable types in 
NPS-PASCAL. A type declaration entry is constructed whenever 
a scalar type, subrange type, array type, record type, set 
type, file type, or pointer type is encountered. 

(1) Scalar Types 

By their definition a scalar type is an order- 
ed set of values whose identifiers are enumerated to denote 
their values. The form field entry in the symbol table has 
the value 07H. Scalar entries are the only type declaration 
entries that have an accessible printname. Consequently, the 
next two fields hold the printname hash value and the printname 
length. The printname characters follow these fields. The 
next field is a byte value containing the enumerated value of 
the scalar identifier. The final field is a two byte field 
storing the symbol table address of the parent type. Figure 7 
displays the scalar entry format in the symbol table. 

(2) Subrange Types 

A subrange type is a duplicate declaration of 
any other predefined scalar type, integer type, or character 
type, but with, a specified lower and upper bound on its ele- 
ments. The form field of a subrange entry is OFH for enumerat- 
ed elements, 4FH for integer elements, and 08FH for character 
elements. Bytes six and seven store the address of the sub- 
range elements parent type. Bytes eight and nine hold the low 
value of the range, wnile the next two bytes contain the high 
value. The following field is two bytes in length and stores 
the total number of elements in the range. The final two bytes 
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hold the displacement vector value, which is utilized during 
array access, A typical subrange entry is shown in Figure 8. 
(3) Array Types 

The previous type declaration entries in NPS- 
PASCAL are called simple type entries. They are symbol table 
entries utilizing a single predefined type. Structured types 
are compositions of types in NPS-PASCAL. In other words, one 
or more types are utilized to describe a symbol table entry. 

The array type is a structured type consisting 
of a fixed number of components that are all of the same "com- 
ponent" type. The number of components are specified as a 
scalar or subrange "type and are referred to as the index type 
(integer and real types are not allowable index types, how- 
ever, the scalar or subrange type can be of type integer) . 
The component type is of any type. 

The symbol table format for an array entry 
has a form field value of 17H. The following byte specifies 
the number of indexes, or dimensions in the array. The next 
two fields are both two bytes long, the first containing the 
address of the component type; the second containing the total 
storage requirements in bytes for the array. The eleventh 
byte holds a value representing the array's component type as 
determined in Table 1* A two byte field follows with the 
symbol table address of the array's first dimension. If the 
array has more than one dimension, two bytes are allotted in 
the symbol table to store the address of each remaining 
dimension. Figure 9 shows an array symbol table entry. 
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(4) Record Types 

A record is another NPS-PASCAL structured type. 
This structure has a fixed number of components, called fields, 
each of which can be of any defined type. The symbol table 
entry for a record has a form field value of 1FH. Bytes si.- 
and seven contain the storage requirements in bytes for the 
record. Bytes eight and nine store the symbol table address 
of the last field contained in the record structure. Figure 
10 formats a record entry in the symbol table. 

Each record field consists of an identifier and 
a type, and has a unique format in its symbol table entry. 
The form field has the constant value of 5FH. The following 
two fields are byte values for the hash value and the length 
of the field's printname. The next field holds the printname 
characters. The address of the parent record is stored in 
the next two bytes. The following field has a one byte length 
and is used to store the record field's type. The choice of 
values to be stored is the same as the list specified for an- 
array's component type. Two more bytes are utilized to store 
the symbol table address of the type specified. The last -field 
of tnis entry is two bytes long. and holds the offset of the 
record field from the base of the record. The format of a 
record field entry is specified in Figure 11. 

NPS-PASCAL supports the variant field and tag 
field constru;ts of records. These two kinds of record fields 
have similar symbol table entries as just described above, with 
the exception that the variant form field is ODFH, and the 
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tag form field is 9FH. 

(5) Set Types 

The set structure defines a set of values, 
which is the power set of a declared base type. The base type 
is required to be a scalar or subrange type. The set type 
symbol table entry has a form field value of 27H. The follow- 
ing two bytes contain the symbol table address of the set type 
identifier. Figure 12 shows a sample set entry in the symbol 
table. 

(6) File Types 

A NPS-PASCAL structure consisting of a sequence 
of components, all of the same type, is simply called a file. 
A file type indicates a natural ordering of the components , 
whose position in the file defines the sequence. A file type 
declaration entry in the symbol table has a form field value 
of 2FH. The symbol table address of the file type's identi- 
fier is contained in the next two bytes. The file type format 
is displayed in Figure 13. 

(7) Pointer Types 

| NPS-PASCAL supports dynamic variables which 

are generated without any correlation to the static structure 
of the program. These variables are assigned a special type 
called pointer type. The symbol table entry for this type 
declaration is shown in Figure 14. The form field value is 
set to 37H, while bytes six and seven of the entry hold the 
symbol table address of the pointer type identifier's entry. 
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d. Variable Entries 

Each variable declared in a NPS-PASCAL program is 
%.nserfted in the symbol table. The form field of the variable 
entry contains a value which describes the type of the program 
variable. The values for this field and their associated types 
are shown in Table 2. Following the form field are the fields 
containing the variable identifier's printname hash value , 
length, and the printname characters. A two byte field which 
contains the variable's starting address in memory appears 
after the printname characters. This address is an offset 
from the base of the variable area, called the Program Refer- 
ence Table (PRT) , assigned by the NPS-PASCAL Code Generator. 
The variable's type determines the length, or number of bytes 
assigned to the variable in the PRT. The compiler keeps a 
count cf the total amount of storage and passes this value to 
the Code Generator at the completion of a successful program 
compilation. The Code Generator subsequently converts the 
relative addresses in the intermediate code to absolute ad- 
dresses in the final target machine code. An example of a 
variable entry is given in Figure 15. 

e. Procedure and Function Entries 

Every procedure and function in a NPS-PASCAL pro- 
gram has an associated entry in the symbol table. In the case 
of a procedure entry, the form field is assigned the value 04H. 
The hash value, length of printname, and the printname charac- 
ters fields immediately follow the form field. A one byte 
field follows the printname and stores the number of parameters 
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associated with the procedure. A two byte field is next, 
storing the symbol table location of a listing of the proce- 
dure's parameter types. This listing is referenced by the 
compiler to ensure proper parameter mapping, and is located 
immediately after the final procedure parameter entry in the 
symbol table. Following the parameter types address field in 
a procedure entry, are three more two byte fields. The first 
field gives the Program Reference Table (PRT) address assigned 
to the procedure identifier. The second field gives the PRT 
address assigned to the procedure save block pointer (SBP) . 
The SBP construct is based on a similar construct in Algol-E 
(10) to permit recursive subroutine calls. The final field in 
the entry holds a label value that must be branched to when 
the procedure is invoked. Figure 16 illustrates the format 
of this entry. 

A function entry in the symbol table duplicates a 
procedure entry with two exceptions. A function entry has a 
form field value of 05H; and one byte field is added at the 
end of the entry to designate the type of the function. Func- 
tion type values are similar to the variable types specified 
in Table 2. A sample function entry appears in Figure 17. 

(1) Formal Parameters 

Formal parameters provide a mechanism that 
allows a procedure or function to.be repeated with various 
values being substituted. The formal parameters are declared 
in the procedure or function declaration and can be of tour 
types: value parameters, variable parameters, procedure para- 
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FUNCTION YZ(F,A:REAL) :REAL; 
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meters, and function parameters. Each declared parameter has 
an associated symbol table entry. A value parameter entry has 
exactly the same format as a variable entry. A variable para- 
meter entry also duplicates a variable symbol table entry, with 
the exception of the form field. The high order bit of the 
form value is set to one for all variable parameters. Proce- 
dure and function parameters are entered as described above for 
procedure and function symbol table entries. 

Figure 18 displays a sample series of symbol 
table entries starting with a procedure entry and followed by 
various formal parameter entries. Note that the final few 
bytes show the listing of the procedure's parameter types that 
will be utilized for mapping actual parameters to the formal 
parameters. 

f. Symbol Table Construction Procedures 

Several standard construction procedures were de- 
veloped for the manipulation of the symbol table. The proce- 
dure ENTER $VAR$ ID is used by all routines which construct a 
symbol table entry containing an accessible printname. This 
procedure calls ENTER$LINKS to assign the collision and pre- 
vious symbol table entry address fields . The procedure 
ENTER$PN$ID is then called to insert the printname hash value, 
printname length, and the printname characters. Control re- 
turns to ENTER$VAR$ID where the initial form value of the entry 
is set. When no printname is associated with the symbol table 
entry, ENTER$COMPLEX$TYPE is called to zero the collision field, 
enter the previous symbol table entry address, and to set -che 
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•form field specified when ENTER?COMPLEX$TYPE was invoked. 
Various other construction routines must be called to add 
additional descriptive fields for the particular entry under 
construction. 

.g. Symbol Table* Access 

Symbol table access in the NPS-PASCAL compiler is 
accomplished through the use of standard lookup procedures, 
and pointers contained within entries . Access is also depend- 
ent upon the current block level of the input program. Because 
Pascal is a block structured language, the rules of global and 
local variables are followed. Whenever a procedure or function 
declaration is recognized, the block level of the program is 
immediately incremented, thus permitting variable names to be 
reused in this new level. Any variable declared in a lower 
level can be accessed in a higher level provided that the 
variable name is not a duplicate and that the lower level 
variable is in fact global to the current higher level. Ob- 
viously, identical variable names cannot be declared in the 
same block level. When the compiler recognizes a complete 
procedure or function, the block level is decremented by one 
and the variables local to that block have their entries in 
the HASH$TABLE deleted. 

The procedure LOOKUP SONLY can be called with the 
address of a printname: as a parameter. The procedure calls 
CHECK$PRINT$NAME to compare the symbol table entry's print- 
name with that of the parameter. The hash table index of 
the parameter is used along with the symbol table collision 
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fields to access the correct entries in the table. The pro- 
cedure LOOKUP$PN$ID was designed to accomplish the same task 
as LOOKUP$ONLY with the additional features of checking the 
form field of the entry with a second parameter, and to check 
the declared block level of the printname. If either pro- 
cedure succeeds in matching a symbol table entry, the variable 
LOOKUP$ADDR is set to the starting address in the symbol table 
of the matched entry, and the value TRUE is returned to the 
calling routine. 

Upon compilation of a program, successful or not, 
the symbol table is copied into a separate file of typ^ "SYM". 
The NPS-PASCAL user assistance program SYMBOL$TABLE may then 
be invoked to print out the contents of the program's symbol 
table. 

2 « Built-in Symbol Table Entries 

Special mention must be made of the symbol table en- 
tries that are predefined- or built into the NPS-PASCAL 
compiler. These entries contain type entries, file entries, 
procedure entries, function entries, and constant entries that 
make up the NPS-PASCAL standard identifiers. The standard 
identifiers are declared in the' BUILT$IN$TABLE. 

The entries in BUILT$IN$TABLE follow much the same 
construction rules as those of the compiler generated symbol 
table. The main difference is that the built-in symbol table 
has to be entered by hand. Consequently, the table was located 
at the first available memory location (106H) for ease of im- 
plementation and to simplify the addition of other built-in 
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entries. Appendix C lists a table of the standard identi- 
fiers found in BUILT$IN$TABLE, and their usage is detailed 
in the NpS-PASCAL User's Manual. 

All BUILT$IN$TABLE entries have an accessible print- 
name. Consequently, the first six fields of standard entries 
have the tormat shown in Figure 19. Built-in types and built- 
in files contain only these six fields. Built-in constants 
have an additional field that stores the constant's value. 
Built-in functions have a one byte field following the print- 
name characters that holds a sequential number that uniquely 
identifies the function. The type of the function is stored 
in the following one byte field. The next byte holds the 
number of parameters that the built-in function has. Depend- 
ing on this value, a sequence of fields follow, all of which 
are one byte in length, ranging from one to the number of 
parameters, storing the type required of the actual parameters. 
Standard function type fields are assigned values in accord- 
ance with the format specified in TABLE 1. Built-in proce- 
dures also have the one byte field holding the unique sequen- 
tial number that identifies the procedure. However, the 
number of procedure parameters and their expected types are 
not stored in the built-in entry because most NPS-PASCAL 
standard procedures have a variable number of parameters. 
Consequently, various procedures check a built-in procedure's 
actual parameters to ensure proper parameter mapping. 

Since BUILT$IN$TABLE entries are entered manually, 
certain entries must be made in the compiler's HASH$TABLE. . 
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This table is used to store the starting address of either a 
BUILT$IN$TABLE or SYMBOL$TABLE entry based on the entry's hash 
value. Procedure INITIALIZE$SYM$TBL stores the appropriate 
BUILT$ INSTABLE address at location HASHTABLE (SYMHASH) , where 
SYMHASH is the hashed value, of the printnaroe entry stored in 
the fourth field of the standard entry. 

Many of the standard functions, and their parameters, 
in NPS-PASCAL can be of type integer or real. In this case, 
the function type and parameter type fields were assigned to 
the value 13H. This value serves as a flag to the compiler 
to permit either type integer or type real values to be seman- 
tically acceptable. Similarly, standard functions SUCC and 
PRE.'.'* a:*d their single parameter can be of any type except 
real. Therefore, their type fields were given the value 0F3H 
which alerts the compiler to accept any type, except real, in 
the evaluation of these two functions. 

Further standard identifiers may be added to NPS- 
PASCAL, provided the above entry specifications are satisfied 
and that an associated entry is made in the HASH$TABLE. 

E. PARSER 

The parser is a table driven automation and is modelled 
after the ALGOL-M (9) and BASIC-E (12) parsers. The LALR(k) 
parser generator (5) produced the required parse tables and 
the vocabulary table, VOCAB, which together with the parse 
stacks serve as the major data structures in the parser. The 
parser operates by receiving tokens from the scanner, analyz- 



ing them to determine if they are part of the NPS-PASCAL 
grammar, and then accepts or rejects the token in accordance 
with the syntax of NPS-PASCAL. If the token is accepted, one 
of two actions is taken. The parser may stack the token and 
continue to request tokens in the lookahead state, or it may 
recognize the right part of a valid production and apply the 
production state which results in a stack reduction. If the 
parser rejected the token, or it determines that the token 
received does not constitute a valid right part of any pro- 
duction in the NPS-PASCAL grammar, a syntax error will be 
printed at the console and the RECOVER procedure is called. 

' RECOVER is a procedure that permits continued program 
compilation in spite cf the occurrence of a syntactical error. 
It causes the parser to back up one sta+ • and attempts to 
continue parsing from that state. In th /ent of failure, 
the parser continues to back up until the end of the current- 
ly pending reduction. is encountered. At that point the in- 
valid token is bypassed and an attempt is made to parse the 
following token. This process continues until an acceptable 
token is found. 

The parse stacks in NPS-PASCAL consist of a state stack 
and eight auxiliary stacks. The auxiliary stacks are para- 
llel .to the parse stack and are used to store information 
needed during code generation. The parse stacks include: 
BASE$LOC - stores the symbol table address of the current 

identifier; 
FORM$FIELD - stores the form value of the current identifier 
as stored in the symbol table; 
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TYPE$STACK - stores the type value of an identifier; 
PRT$ADDR - stores the assigned PR'f address of an identifier; 

LABfEL$STACK - stores label values to be utilized with branch- 

i 

[ ing instructions; 

PARM$NUM - stores the number of formal parameters associated 

with a procedure or function; 
PARM$NUM$LOC - stores the symbol table address of the list of 

formal parameter types associated with a procedure 

or function; 
EXPRESS$STK - stores the type value of an expression. 

F. CODE GENERATION 

The parser not only verifies the syntax of the source 
statements, but also controls the generation of the inter- 
mediate code by associating semantic actions with production 
rules. When a reduction takes place, the SYNTHESIZE procedure 
is called with the production number as a parameter. The 
SYNTHESIZE procedure contains an extensive case statement 
keyed by the production number to perform the appropriate 
semantic actions. The syntax of the. Language and the seman- 
tic actions for each reduction are listed in Appendix D. 

A key element in understanding the compiler is a knowl- 
edge of NPS-PASCAL storage structure 3, the diverse operators, 
the employment of procedures and functions, and the communica- 
tion routes between the compiler and the user. These partic- 
ulars are elaborated below, along with a description of the 
compiler's pseudo operators, to assist in understanding 
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NPS-PASCAL compiler constructs and to explain the logic used 
in generating the intermediate code that will, in turn, be 
used to generate the target 8080 machii i code. 
1. Storage Space Allocation 

Allocation of storge space in NPS-PASCAL is depend- 
ent on the type of data encountered. For each program vari- 
able requiring storage space, the compiler specifies the num- 
ber of bytes to be set aside, and keeps a ccunt of the total 
storage allocated. The total count is then passed to the Code 
Generator for the purpose of establishing the size of the Pro- 
gram Reference Table. 

a. Byte Data 

Byte data items are stored in a single byte loca- 
tion in memory. These data items may represent characters, 
numbers, or boolean data. 

b. Integer Data 

Integers are represented by two byte values and 
are stored in memory with the high order byte preceding. the 
low order byte of the integer number. This storage process 
follows the processing requirements of the 8080 Microproces- 
sor (10) to complete moves of data from memory, or the stack, 
into the processor double byte registers at program execution 
time. An example of the execution time POP and PUSH operation 
is shown in Figure 20. Integers are represented in two's 
complement form, with the high order bit acting as the sign 
bit. A zero high order bit indicates a positive integer value 
and a one indicates a negative value. 
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c. Real Data 

Real numbers in the NPS-PASCAL compiler are rep- 
resented in binary coded decimal (BCD) format. Every real 
number is represented by 14 digits and is stored in eight con- 
tiguous bytes. When loading a BCD value in the execution 
stack, the byte, located at the lowest memory address location, 
contains the sign of the number along with the sign and magni- 
tude of the exponent. Succeeding bytes represent two decimal 
digits and are ordered in a backwards fashion. The byte that 
is the closest to the exponent byte represents the last two 
digits of the number, while the last byte of the number con- 
tains the first two digits. Figure 21 displays a BCD number 
stored in memory. 

The exponent byte in a BCD number uses the high 
order bit to indicate the sign of the number — a high order 
one indicating a negative number, while a zero represents a 
positive number. The remaining seven bits are used to repre- 
sent the exponent and its sign. A bias of 64 is used for the 
exponent representation. Values greater than 64 depict a 
positive exponent; values less than 64 depict a negative 
exponent; and the exponent result equals the difference be- 
tween 64 and the value. This reference point allows a range 
of exponent values from -64 to +63. The BCD number always 
assumes the decimal point is positioned before the first digit. 

d. String Data 

Strings are stored sequentially in NPS-PASCAL. 
The first byte of the string stores the string length, thereby 
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limiting strings to a maximum of 255 bytes. Immediately 
following are the ASCII characters that compose the string. 

2 J Arithmetic Operations 

f 

i a. Logicals 

Logical operations, or boolean operations, act on 
byte values of zero and one only. A zero value indicates a 
false condition, while a non-zero value indicates true. Log- 
ical operations requiring comparison between two elements 
returns the resulting value of the operation in the TRUE or 
FALSE form. 

b. Integers 

• Arithmetic operations with integers are performed 
by taking the top two values from the execution stack, plac- 
ing them in the double byte registers in the 8080 Microproces- 
sor, and carrying out the requested operations. Integer arith- 
metic operations include addition, subtraction, multiplication, 
division with truncation, modulo division, logical comparisons, 
and transformations to BCD format. All computation results, 
except for transformations, are returned to tlie execution 
stack in the two byte integer format. Any relational opera- 
tion on two integer values is carried out in &PS- PASCAL, in 
accordance with the rules for integer arithmetic. 

c. Reals 

Real arithmetic operations are more complex than 
those with integers due to the nature of the BCD format. 
The process is similar to that of integers, however, where 
real numbered pairs are moved into the 8080 registers. The 
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required operation is applied, and the resulting value is sent 
back to the NPS-PASCAL stack in its eight byte BCD format. 
NPS-PASCAL real values also follow the rules of integer arith- 
metic whenever two real values have a relational operator 
occurring between them. 

3. Set Operations 

NPS-PASCAL supports the three set operators: set union; 
set difference; and set intersection. As before, 8080 regis- 
ters receive the two set operands located at the top of the 
stack. The set operation is performed and the resulting set 
value is returned to the top of the stack. The relational 
operators of set equality and inequality, set inclusion, and 
set membership were not implemented in this version of NPS- 
PASCAL. 

4 . String Operations 

The relational operators of equality and inequality 
have been implemented for strings. The remainder of the re- 
lational operators denote lexicographic ordering according 
to the character set ordering, and have not been implemented 
in this version of NPS-PASCAL. 

5. Procedures and Functions 

Procedures and Functions, also called subroutines, 
give PASCAL the ability to display program segments as explic- 
it subprograms. The only difference that exists between a 
procedure and a function is that a function returns a value 
to the top of the execution stack after it is invoked, while 
a procedure does not. This means that a function call 
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actually represents an arithmetic expression. Procedure 
calls, however, stand alone as a program statement in NPS- 
PASCAL. Due to language extensions, NPS-PASCAL allows compila- 
tion of separate functions or procedures as complete programs. 
These EXTERNAL programs can then be called by any other NPS- 
PASCAL program. 

a. Invocation 

Procedures and. functions can be invoked with zero 
or more actual parameters.. The list of actual parameters are 
substituted into the corresponding list of formal parameters 
declared in the procedure or function definition. If the 
formal parameter is a variable parameter, the actual parameter 
has to be a variable. Should the formal parameter be a value 
parameter, then the actual parameter can be an expression — 
provided the expression type matches the formal parameter 
type. For procedure and function formal parameters, the actual 
parameter must be a procedure or function identifier. Actual 
parameter types are checked against formal parameter types, 
stored in the symbol table, during program compilation. The 
method of passing actuai parameters values is via the execu- 
tion stack, as shown in Figure 22. The procedure or function's 
code location is generated in the form PRO <label> , where 
PRO is a mneumonic meaning branch to subroutine, and <label> 
is the label value stored in the subroutine's symbol table 
entry. 

b. Storage Allocation 

All parameters and variables declared within a 
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procedure or function are assigned a location in the PRT. 
These locations immediately follow the PRT location of the pro- 
cedure or function identifier. Upon recognition of a complete 
subroutine, another PRT location is allocated. This location 
is called the Save Block Pointer (SBP) for the subroutine. 
The PRT locations extending from the subroutine's identifier 
location through the SBP make up a Procedure Control Block 
(PCB) . The effect is that the PCB is a contiguous set of PRT 
cells, as seen in Figure 23. The PCB construct is based on 
the one used in ALGOL- E (10), and its usefulness is in re- 
cursive calls to a procedure or function, 
c. Parameter Mapping 

NPS-PASCAL uses a scheme similar to ALGOL-E in 
mapping the actual parameters of a procedure or function to 
its formal parameters. After recognition of NPS-PASCAL sub- 
routine identifier, the actual parameters that are identifiers, 
have their intermediate code generated in the form of a 
"PARM" or "PARMV" mneumonic followed by the PRT location of 
the actual parameter. These mneumonics load the execution 
stack with the values of the actual parameters in the Code 
Generator. If the actual parameter is an expression, the 
expression result will be loaded automatically on top of the 
execution stack. Consequently, the compiler generates the 
mneumonic "PARMX" after the recognition of a complete express- 
ion that is acting as a value parameter. PARMX will not re- 
quire any action in the Code Generator. 
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VAR CH : CHAR; 

FUNCTION ZERO (F, A : REAL) 

VAR x, z ; REAL; 

sx : BOOLEAN; 
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With the actual parameter in place, program control 
will branch to the procedure or function itself. The compiler 
generates code to place three items on the top of the execution 
stack, the first item is the number of formal parameters (f) 
in the subroutine, the second is the PRT location of the sub- 
routine's identifier (IDLOC), and the third is the SBP address 
in the PRT (SBPLOC) of the subroutine. The compiler then gen- 
erates the SAVP operator, followed by the total byte count of 
PRT storage (t) assigned for the subroutine's identifier and 
all formal parameters. This is followed by a listing of byte 
storage required by each formal parameter (Pi) in the PRT in 
descending order. The execution of the SAVP operator is ex- 
pected to cause the following actions to be generated by the 
Code Generator. 

(1) The SBP location is examined 

(a) if S3F = then SBP :=1, else 

(b) SPB >0 and segment of length (SBPLOC- 
IDLOC + 2) is obtained from the top of 
available memory — say at address x. 
The PCB is then copied from the PRT to 
the memory segment starting at x. The 
contents of the segment at x is then 
called the Save Block (SP) . SBP : = x. 

(2) The top two elements of the execution stack 
are deleted; the next element (f) is copied 
and deleted from the stack; pi = p . 



(3) If f = then halt. All actual parameters have 
been copied into the formal parameter loca- 
tions in the PCB. 

(4) PRT location (IDLOC + t - p. ) : = top of execu- 
tion stack; delete the top element of the ex- 
ecution stack; t :=* t - p.; p. := Pj+1. 

(5) f := f - 1; go to step (.3.1' , 

This process ensures that recursively calling a subroutine 
will not destroy the local variables and parameters of any 
preceding calls. 

d. Function Return Value 

Coupled with the S&VP operator is the UNSP (un- 
save) operator that reverses the actions of SAVP. Two para- 
meters are required at the top of the stack — the SBP loca- 
tion in the PRT (SBPLOC) , and the PRT location of the sub- 
routine identifier (IDLOC) . The actions, then, of UNSP are: 

(1) The value stored at IDLOC is copied to the 
top of the stack (this returns a value for 

. function calls; this value will be deleted 
for procedure calls) . 

(2) If the value of FBPLOC is greater than 1 then 
the SB -.t 3 ooation SBPLOC in the free memory 
areei is copied back to the PCB and the memory 
is freed. If SBP =1 then SBP:=0. Consequent- 
ly, the UNSP operator returns a value from 
function calls, and restores the PCB in the 
event of recursive calls. • Figure 24 shows 
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VAR Y : INTEGER 

PROCEDURE LO (X : INTEGER; VARY 

VAR TEMP : REAL 

Begin 

TEMP : = SQRT (X) 

y : = TRUNC (TEMP) ; 

End; 
D : = 6; 

Lo(49, D) ; 
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the actions of the SAVP and UNSP operators on 

the PRT and the execution stack. 

i 

! e. Forward Declared Procedures and Functions 

i 

t To permit the invocation of a procedure or func- 
tion prior to its definicion, NPS-PASCAL utilizes a forward 
reference. The forward reference consists of the procedure 
(function) head, followed by the word FORWARD. When the pro- 
cedure (function) is defined later in the program, the para- 
meters are not repeated. FORWARD is not a reserved word in 
NPS-PASCAL. It is instead referred to as a "directive." 
Directives are identifiers in NPS-PASCAL, that can only occur 
immediately after a procedure or function heading. Directives 
are entered in the NPS-PASCAL BUILT $ INSTABLE, 
f. External Procedures and Functions 

External Procedures and Functions is a NPS-PASCAL 
extension to Standard Pascal. The outcome of this construct 
is that NPS-PASCAL functions and procedures can be separately 
compiled as complete programs. The NPS-PASCAL user can then 
gain access to one of these prog :ams by an external reference 
to it. The format of this reference is a procedure (function) 
head, followed by the word EXTERNAL. This construct is an- 
other NPS-PASCAL directive. The intermediate code for the 
external file would then be read from the disk and incorporated 
into the program intermediate code as if it were a standard 
subroutine. This feature of NPS-PASCAL has not been thoroughly 
tested for proper implementation. 



g. Standard Procedures and Functions 

• The built-in procedures and functions that cur- 
rently exist in NPS-PASCAL correspond to the standard proce- 
dures and functions specified in STANDARD PASCAL. However, 
their operation is considerably different than user defined 
procedures and functions. The compiler first generates code 
for any subroutine actual parameters. A unique mneumonic for 
the built-in procedure or function is then generated which 
tells the Code Generator or Interpreter that it must remove 
the parameters from the execution stack, do the necessary 
operation, and return the result to the stack. The standard 
procedures for input and output (Read, Readln, Write, and 
Writeln) will not require special action to be taken by the 
Cede Generator. The remaining standard procedures dealing 
with files and pointer variables generate mneumenics that 
will require action by the Code Generator. A complete listing 
of NPS-PASCAL standard procedures and standard functions is 
contained in Appendix C and their usage is outlined in the 
NPS-PASCAL USER'S MANUAL. . 
6 • Input-Output 

Input and output can be handled in two ways: via 
console, and via disk. Console I/O refers to the device the 
NPS-PASCAL user is utilizing to provide commands to the sys- 
tem — usually a CRT terminal or teletype. Disk I/O refers 
to utilizing auxiliary files on the disk for data manipula- 
tion. 
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Input from console I/O is achieved through READ or 
READLN statements. Console output is accomplished by the 
WRITE and WRITELN statements. Input to the console is accom- 
%-plished. by an operating system routine that reads one full 
console line into an input buffer. The Code Generator gen- 
erates code to examine the buffer and convert ASCII charac- 
ters contained within the buffer into appropriate NPS-PASCAL 
internal integer, real, or string format. The input value 
is associated with the appropriate read statement variable 
parameter and then stored in the space allocated for that 
variable. A write statements takes the internal representa- 
tion of integer, decimal, or byte values and converts them 
to their ASCII. character format. These values are then 
provided to an operating system print routine for console 
output. Constants and string variables are stored as ASCII 
strings in the NPS-PASCAL intermediate code; hence, the Code 
Generator will generate code to send them character by charac 
ter to the system print routine. 

Disk I/O is achieved through the same read and write 
statements utilized for console I/O. However, to read data 
from- a disk file requires that the file identifier be speci- 
fied as the first parameter in a read statement's list of 
actual parameters. The file identifier has to be specified 
in the same location for disk write statements as well. The 
file identifiers used in read/write statements must be de- 
clared in a variable declaration part of a program block, 
or as a program 'parameter in the program declaration (called 
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an external file). The file identifier has a specific EST 
entry assigned by the compiler. At program execution, space 
will have to be allocated on the NPS-PASCAL stack for File 
Control Block (FCB) information necessary to interface file 
operations with the operating system. Additionally, -space 
should be provided for a 128 byte I/O buffer for every declared 
file. 

7. NPS-PASCAL Pseudo Operators 

The NPS-PASCAL compiler generates a variety of pseudo 
operators that were designed to permit effective conversion 
to 8080 code in the NPS-PASCAL code generator. The design, 
however, also lends itself to the development of an inter- 
preter. Reference 1 contains an account of the current Code 
Generator's organization. With the added ability of symbol 
table access during the 8080 code generating phase, a revised 
organization is suggested and outlined in Figure 25. The 
description below of the pseudo operators is based on this 
suggested reorganization of the NPS-PASCAL code generator. 

The top item on the NPS-PASCAL stack, or execution 
stack, is addressed by the variable RA. This variable is 
also known as the stack pointer. The next-to-the-top item on 
the stack is addressed by the variable RB'. The values con- 
tained in the first two bytes addressed by RA and RB are 
referenced by the variables RA$VAL and RB$VAL. Real and 
string values may be. represented on the stack either by 
storing the actual value itself on the stack, or by using an 
address that indicates the starting position of the actual 
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storage area. 

a. Literal Data References 

i LITA: (Literal Address) . This operator generates 
8OJ3O code to place the following two byte integer value on the 
stack. 

b. Allocation Operators 

ALL: (Allocate) . This operator generates code 
that initializes the number of bytes of storage required by 
the PRT. The size of the PRT is contained in the following 
two byte integer value. 

LBL: (Label) . This operator is used on the Code 
Generator's first pass to calculate the address of the label 
in the code area and save it in the label table using the 
next two byte integer number as the label table index. 

LDIB: (Load Immediate BCD) . This operator gen- 
erates code to place the following eight bytes on the execu- 
tion stack. 

LDII: (Load Immediate Integer). This operator 
generates code to place the following two bytes on the 
execution stack. 

LOD: (Load Byte) . This operator generates cede 
to move RA$VAL into the 8080 HL register. The byte value 
stored at the location prescribed by HL register pair is then 
moved to the top of the stack preceded by a high order zero 
byte. 

LODB: (Load BCD) . This operator generates code 
to move RA$VAL into the 8080 HL register. The register is 
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incremented by eight, and the value stored at the location 
prescribed by the HL register pair, and the preceding seven 
bytes, are moved onto the stack in descending order. 

LODI: (Load Integer). This operator generates 
code to move RASVAL into the 8080 HL register. The two bytes . 
stores at the starting location prescribed by the HL register 
pair are then moved onto the execution stack. 
c. Arithmetic Operators 

CNVb: (Convert BCD) . This operator generates 
8080 code to replace the BCD value of the top eight bytes in 
the stack by a two byte integer value. Conversion of the 
number takes place in the work area. 

CNVI: (Convert Integer). This operator generates 
code to replace the two byte integer value on top of the stack 
by its eight byte BCD value. Conversion of the number takes 
place in the work area. 

CNAI : (Convert Integer Preceding Address). This 
operator generates code to move the top two bytes from the 
top of the stack into a save area, then to move the following 
integer into the work area. Code is then generated to convert 
the integer into a BCD eight byte format. The resulting BCD 
number is then returned to the stack fol loved by the two bytes 
from the save area. 

CN2I: (Convert Integer Preceding BCD) . This 
operator generates code to move the two bytes from the top 
of the stack into a save area, then move the following BCD 
number into the work area. Code is then generated to convert 
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the BCD number to an integer number. The resulting integer 
value is then returned to the stack followed by the two bytes 
from the save area. 

ADDB: (Add BCD) . This operator generates code to 
move the two BCD values from the top of the stack into the 
work area where the sum of the two numbers is calculated and 
returned to the stack in BCD format. 

ADDI: (Add Integer) . This operator generates 
code to move the two integer values on the top of the stack 
to the 8080 registers where the sum of the two numbers is 
calculated and returned to the too of the stack. 

SUBB: (Subtract BCD) . This operator generates 
code to move the two BCD values from the top of the stack 
into the work area where the first BCD number is subtracted 
from the second BCD number. The resulting BCD value is 
returned to the top of the stack. 

SUBI : (Subtraction Integer). This operator gen- 
erates code to move the +-wA < u-yer values oii>' -, of the stack 
to the 8080 registers where the first, integer is subtracted, 
from the second. The resulting integer value is returned to 
the top of the stack. 

MULB: (Multiply BCD) . This operator generates 
code to move the t w ° BCD values at the top of the stack into 
the work area where their product is calculated. The result- 
ing BCD number is returned to the top of the stack. 

MULI: (Multiply Integer). This operator gen- 
erates code to move the . two integer values on top of the stack 



to the working area where the product is calculated. . The 
resulting integer number is returned to the top of the stack. 
^ /> DIVB: (Divide BCD) . This operator generates 
the 80;80 code to move two BCD values from the top of the stack 
into the work area where the second BCD number is divided by 
the first. The quotient is returned to the top of the stack 
in BCD format. 

MODX: (Modulo). This operator generates code to 
move the two integer values at the top of the stack to the work 
area where the second integer is divided by the first. The 
remainder of the quotient is returned to the top of the stack 
in integer format. 

DIVI: (Divide Integer). This operator generates 
code to move the two integer values at the top of the stack 
to the work area where the second integer is divided by the 
first. The quotient is returned to the. top of the stack in 
integer format. 

LSSB: (Less Than BCD). This operator generates 
code to move the two BCD values at the top of the stack to the 
work area where the two numbers are compared. If the second 
BCD number is smaller than the first BCD number, a one is 
returned to the stack. Otherwise, a zero is returned. 

LSSI: (Less Than Integer). This operator gen- 
erates code to move the two integer values at the top of the 
stack to the 8080 registers where the two numbers are compared. 
If the second integer is smaller than the first integer, a 
one is returned to the stack. Otherwise a zero is returned. 
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LEQB: (Less Than or Equal BCD) . This operator 
generates code to move the two BCD values at the top of the 
stack to the work area where the two numbers are compared. If 
the second BCD number is smaller than, or equal to, the first, 
a one is returned to the stack. Otherwise, a zero is returned 
to the top of the stack. 

LEQI: (Less Than or Equal Integer). This operator 
generates code to move the two integer values at the top of 
the stack to the 8080 registers where the two numbers are com- 
pared. , If the second integer removed from the stack is small- 
er than, or equal to, the first integer, a one is returned to 
the top of the stack. Otherwise, a zero is returned. 

EQLB: (Equal to BCD) . This operator generates 
code to move the two BCD values on top of the stack to the 
work area where the two numbers are compared. If the two 
BCD numbers are equal, a one is returned to the stack. Other- 
wise a zero is returned. 

EQLI: (Equal to Integer) . This operator gen- 
erates code to move- the two integer values at the top of the . 
stack to the 8080 registers where the two numbers are com- 
pared. If the two integers are equal a one is returned to 
the stack. Otherwise a zero is returned. 

NEQB: (Not Equal to BCD). This operator gen- 
erates code to move the two BCD values at the top of the stack 
to the work area where the two numbers are compared. If the 
numbers are not equal a one is returned to the -stack. Other- 
wise a zero is returned. 
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NEQI: {Not Equal to Integer). This operator 
generates code to move the two integer values at the top of 
the stack to the 8080 registers where the two numbers are 
compared. If the numbers are not equal, a one is returned to 
the top of the stack. Otherwise/ a zero is returned. 

GEQB: (Greater Than or Equal BCD) . This operator 
generates code to move the two BCD values at the top of the 
stack to the work area where the two numbers are compared. If 
the second number is greater than or equal to the first num- 
ber, a one is returned to the stack. Otherwise, a zero is 
returned. 

GEQI: (Greater Than or Equal Integer). This 
operator generates code to move the two integer values at the 
top of the stack to the 8080 registers where the two numbers 
are compared. If the second number removed from the stack is 
greater than, or equal to, the first, a one is returned to the 
stack. Otherwise, a zero is returned. 

GRTB: (Greater Than BCD) . This operator gen- 
erates code to move the two BCD values at the top of the stack 
to the work area where the two numbers are compared. If the 
second BCD number is greater' than the first BCD number, a one 
is returned to the stack. Otherwise a zero is returned. 

GRTI: (Greater Than Integer). This operator gen- 
erates code to move the two integer numbers at the top of the 
stack to the 8080 registers where they are compared. If the 
secorid number is greater than the first, a one is returned to 
the stack. Otherwise, a zero is returned. 
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NEGB: (Negate BCD) . This operator generates 
code to move RA$VAL to the 8080 registers where it compliments 
the sidn bit of the low order byte. RA$VAL is then replaced 

on the,' top of the stack-. 

f 

NEGI: (Negate Integer) . This operator generates 
code to move RA$VAL from the stack to the 8080 registers, com- 
pliments the sign bit, and returns RA$VAL to the top of the 
stack. 

COMB: (Complement BCD) . This operator generates 
code to move the eight byte BCD value from the top of the execu- 
tion stack into the work area, finds the nine's compliment of 
the number and returns the compliment to the top of the stack. 

COMI: (Complement Integer). This operator gen- 
erates code to move RA$VAL into the 8080 registers, finds its 
two's compliment, and returns this value to the top of the 
stack. 

d. Boolean Operators 

NOT: (Boolean Not) . This operator generates cede 
to move RA$VAL into 80.80 registers and checks the low order 
bit. If the bit is zero, a two byte value of one is returned 
to the stack. If the bit is one, a two byte value of zero is 
returned. 

AND: (Boolean And) . This operator generates code 
to move RA$VAL and RB$VAL into 8080 registers for a logical 
AND comparison of their low order bits. If the relation is 
true, a two byte value of one is returned to the top of the 
stack. If the relation is false, a two byte value of zero is 
returned. 
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BOR (Boolean Cr) . This operator generates code 
to move RA$VAL and RB$VAL into 8080 registers for a logical 
OR comparison of their low order bits. If the relation is 
true, a two byte value of one is returned to the stack. If 
the relation is not true, a two byte value of zero is re- 
turned to the stack. 

e. String Operators 

LSDI: (Load String Immediate). This operator 
generates code to move a variable number of bytes, depending 
on the value in the following byte of the intermediate code, 
to the top of memory. The address location of the string 
storage area is sent to the top of the execution stack. 

EQLS: (Equal String). This operator generates 
code to move RA$VAL and RB$VAL into 8080 registers and con- 
ducts a byte hy byte comparison of the strings located at the 
addresses stored in the 8080 registers. If the strings are 
equal, a one is returned to the stack. Otherwise a zero is 
returned . 

NEQS: (Not Equal String)., This operator takes 
the same actions as the EQLS operator except that a one is 
returned to the top of the stack when the strings are not 
equal. Otherwise, a zero is returned. 

LEQS; (Less Than or Equal String). This opera- 
tor behaves the same as EQLS except that a one may also be 
returned to the top of the stack of the second string is less 
than the first string in regards to the lexicographic order- 
ing of the character set. 
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GEQS: (Greater Than or Equal String) . This 
operator behaves the same as the LEQS operator, except a one 
is returned when the second string is greater than, or equal 
to, the first. 

LSSS: (Less Than String) . This operator behaves 
the same as the LEQS operator, except a one is returned to the 
stack only when the second string is less than the first string. 

GRTS: (Greater Than String). This operator is the 
opposite of LSSS. A one is returned to the top of the stack 
only if the second string is greater than the first. Other- 
wise, a one is returned. 

f. Stack Operators 

XCHG: (Exchange) . This operator exchanges the 
values of RA$VAL arJ RB$VAL. 

INC: (Increment) . This operator generates code 
to increment the value of RA$VAL by one. 

DEC: (Decrement) . This operator generate: ode 
to decrement the value of RA$VAL by one. 

DEL: (C3lete) . This operator deletes the top 
two bytes from th< stack. RA is set to the position of RB 
and RB is repositioned to the item below its current position 
on the stack. 

g. Store Operators 

STOB: (Store BCD) . This operator generates code 
to move RA$VAL into the 8080 HL register, and then moves the 
next eight bytes from the execution stack into memory start- 
ing at the address specifier in the HL register. The value 
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of the BCD number is preserved on the stack by incrementing 
the stack pointer by eight. 

» STOI: (Store Integer) . This operator generates 
code, to move RA$VAL into the HL register and then moves the 
value of RB$VAL into memory starting at the location specified 
by the HL register. The value of the integer number is pre- 
served on the stack by incrementing the stack pointer by two. 

STO: (Store Byce) . This operator duplicates the 
actions described by the STOI operator. 

STDB: (Store Destruct BCD). This operator gen- 
erates ; -.de to move RA$VAL into the 8080 HL register, then 
mc /v*s the next eight bytes from the stack to memory at the 
address indicated by the HL regi<. tar. 

STDI: (Store Destruct Integer). This cperator 
generates code to move RA$V?L into the 3080 HL register, and 
then moves RB$VAL into memory starting at the address indica- 
ted by the KL register. 

STD: (Store Destruct Byt3)'. This operator a. .- 
erates x. to move RA$VAL into the 8080 HT. register, a.\c\ ch : ; 
moves whe ne"t byte from the stack, to me:'c-y scartirn at the 
address indicated by the HL register, ^e sL.-.-'-.i. pointer is 
decremented by one (to' oyp?sc high crder Jsro left or. tre 
stack) . 

h. Array Operators 

SUB: (Calculate Ofiset to a Specific Array 
Element) . This operator generates code to move RA$VAL into 
the 8080 HL register. The following byte of information tells 



how many indicies must be removed from the top of the stack and 
be used with the displacement vector information stored at 
the location indicated by the HL register. The resultant 
two byte PRT address is placed at the top of the execution 
stack. 

i. Set Operators 

UNION: (Set Union) . This operator generates code 
to move RA$VAL to the 8080 HL register and copy the values 
contained at the location specified by the HL register at the 
top of memory. it generates code to do the same with the 
value stored in RB$VAL. These two SQts are then merged into 
one at the top of memory, and their address is returned to 
the top of the execution stack. 

STDIF: (Set Difference). This operator generates 
the same code as the UNION operator for the values stored in 
RA$VAL and RB$VAL. The two sets are 'merged into one ciscard- 
ing any set element that appears in both sets. The address 
of the result is returned to the top of the stack. 

INSEC: (Set Intersection) , This operator gen- 
erates the same code as STDIF except: the elements that do not 
appear in both sets are discarded. 

EQSET: (Set Equality). This operator generates 
code to compare the two sets stored at the addresses specified 
by RA$VAL and RB$VAL. If they are equal, a one is returned 
to the stack, otherwise a zero is returned. 

NEQST: (Set Non-equality) . This operator gen- 
erates the same code as the EQSET operator, but returns a 
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one to the stack if the two sets are not equal. Otherwise, 
a zero is returned to the top of the stack. 

INCL1: (Set Inclusion) . This operator generates 
cod;'e to compare the two sets stored at the addresses specified 
by|RA$VAL and RB$VAL. If the set stored at RA$VAL is included 
in, one at RB$VAL, then a one is returned to the top of the 
stack. Otherwise a zero is returned. 

INGL2: (Set Inclusion). This operator generates 
the same code as INCL1 except the set stored at RB$VAL must 
be included in RA$VAL to return a one to the top of the stack. 
Otherwise, a zero is returned to the top of the execution 
stack . 

j . File Operators 

XTRNAL: (External File). Not implemented, 
k. Procedure and Function Operators 

PRO: (Subroutine Call). This operator generates 
code to save the present address loaded in the 8080 program 
counter (PC) register, and loads the PC register with the 
address stored in the label table and accessed by using the 
next two bytes of the intermediate code. 

RTN: (Return from Subroutine) . This operator 
generates code to retrieve the address stored by the pre- 
viously executed PRO operator, and loads the value in the PC 
register to continue program execution at the point of call 
to the Subroutine. 

SAVP: (Save Parameters). This operator gen- 
erates code to save ':he present procedure control block, if 
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necessary, at the top of memory in a Save Block. The series 
of bytes immediately following in the intermediate code are 
utilized to store the procedure parameters on the top of the 
execution stack into the appropriate formal parameter PRT 
locations. 

UNSP: (Unsave Parameters) . This operator gen- 
erates code to copy a SB from the top of memory back into the 
PCB, if required. The area of memory used by the SB is then 
freed. 

PARM: (Parameter) . This operator loads the value 
stored at the following two byte address in the intermediate 
code on the top of the execution stack. 

PARMV: (Variable Parameter) . This operator 
loads the following two byte address in the intermediate code 
on the top of the execution stack. 

PARMX: (Expression Parameter) . This operator 
indicates that the value on the top of the stack is a -para- 
meter for a subroutine. 

ABS : (Built in Function - Absolute Value). This 
operator is generated by a call to built-in function ABS. 
This operator takes RA$VAL and sets the sign bit to positive. 

SQR: (Built in Function - Square) . This operator 
moves the value at the top of the stack into the work area, 
squares it, and returns the value to the top of the stack. 

SIN: (Built in Function - SINE). This operator 
moves the value at the top of the stack into the work area, 
computes the sin, and returns the result to the top of the 
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stack in BCD format. 

COS: (Built in Function - COSINE). This operator 
moves the value at the top of the stack into the work area, 
computes the cosin, and returns the result to the top of the 
stack in BCD format, 

ARCTN: (Built in Function - ARCTAN) . This op- 
erator moves the value at the top of the stack into the work 
area, takes the arc- tangent of it, and returns the result 
to the top of the stack in BCD format. 

EXP: (Built' in Function - Exponential). This 
operator moves the top value of the stack into the work area, 
raises the value of the base of natural logarithms to this 
value, and returns the result in BCD format to the top of 
the stack. 

LN: (Built in Function - LN) . This operator 
moves the value at the top of the stack into the work area, 
takes its natural logarithm, .and returns the result in BCD 
format to the tOp of the stack. 

SQRT: (Built in Function - 'Square Root) . This 
operator moves the value on the top of the stack into the ' 
work area, computes the positive square root of the value, and 
returns the result in BCD format to the top of the stack. 

ODD: (Built in Function - Odd) . This operator 
moves RA$VAL into an 8080 register and checks the low order 
bit. If it is set-to one, then a one is returned. to the top 
of the stack; otherwise, a zero is returned. 



EOLN: (Built in Function - END OF LINE) . This 
operator moves RA$VAL to the 8080 HL register. If the value 
stored at the location specified by the HL register indicates 
an fend of line, a one is returned to the stack; otherwise a 

zero is returned. 
i 

EOF: (Built in Function - End of File) . This 

operator moves RA$VAL into the 8080 HL register and checks 
to see if the value stored at that location indicates an end 
of file. If the end of file is indicated, a one is returned 
to the stack; otherwise a zero is returned. 

TRUNC: (Built in Function - Trunc) . This opera- 
tor moves the BCD value from the top of the stack to the work 
area, truncates the decimal point and all numbers to the 
right of it, and returns the remaining integer value to the 
top of the stack. 

ROUND: (Built.in Function - Round). This opera- 
tor moves the BCD value on the top of the stack to tha work 
area, rounds it to the nearest integer, and returns the inte- 
ger result to the top of the stack. 

ORD: (Built in Function - Ord) . This operator 
rejuo".^ - .5VAL from the top of the stack, converts it to an 
inwger value and returns it to the stack. 

CHR: (BUilt in Function - CHR) . This operator 
moves the integer value in RA$VAL to the work area, deter- 
mines the corresponding character value, and returns the value 
to the top of the stack. 
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SUCC: (Built in Function - Successors) . This 
operator moves the value of RA$VAL to the work area, deter- 
mines the successor value of the same type, and returns this 
result to the' top of the stack. 

PRED: (Built in Function - Predecessor). This 
operator moves the value of RA$VAL to the work area, deter- 
mines the preceding value of the same type, and returns this 
result to the top of the stack. 

PUT: (Built in Procedure - PUT). Not implemented. 

GET: (Built in Procedure - GET) . Not implemented. 

RES.ET: (Built in Procedure - RESET) . Not 
implemented. 

REWRT: (Built in Procedure - Rewrite) . Not 
implemented . 

SEEK: (Built in Procedure - Seek) . Not 
implemented. 

PAGE: (Built in Procedure - PAGE). Not 
implemented. 

NEW: (Built in Procedure - NEW) . Not implemented. 

DISPZ: (Built in Procedure - DISPOSE) . Not 
implemented. 

1. P;: gram Control Operators 

E^DP: (End of Program). This operator causes 
the Code Generator to close the intermediate file and the 
object file terminating compilation. 

BRL: (Branch to Label) This operator calculates 
the label address in the label table using the next two bytes 



87 



of intermediate code as the entering argument. The code 
count stored at the label table address is added to the address 
Of the start of the code area. This value is inserted to the 
PC register and program control continues at that location. 

BCL: (Branch Conditional Label). .This operator 
calculates the branching address in the same manner as the 
BRL operator. However, this operator moves RA$VAL into an 
8080 stack and checks the low order bit. If a one is found, 
the branch is executed. If the low order bit is zero, the 
program continues without branching. 

KASE: (Branch to Case) . This operator compares 
the next two bytes of intermediate code to the value of RA$VAL. 
If they are equal then a branch is executed using the follow- 
ing two bytes of intermediate code as the argument for the 
label table. If the value does not equal RA$VAL then program 
execution continues without branching. (Note: "CASE" is 
not used here, it is a reserved word in PL/M which would 
cause conflicts in the compiler source program.) 
m. Input-Output Operators 

RDBV-; (Read Variable BCD) . This operator gen- 
erates code to read a BCD number from the input file, change 
it into its acceptable storage form, and store the eight byte 
internal form at the location specified on the top of the 
execution stack. 

RDVI: (Read Variable Integer). This operator 
generates code to read an integer number from the input file, 
change it into its acceptable storage form, and store the two 
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byte number at the location specified on the top of the 
stack. 

RDV: (Read Variable Byte). This operator gen- 
erates code to read a byte variable from the input file, 
change it into its acceptable storage form, and store it at 
the i location specified on the top of the stack. 

RDVS: (Read Variable String). This operator 
generates code to read a string variable front the input file, 
and store it at the location in memory specif ied by the top 
two bytes on the stack. 

WRTB: (Write BCD) . This operator generates code 
to move the eight byte BCD number at the top of the stack in- 
to the work area, changes the number into its printable form, 
and sends the number to the output file. 

WRTI: (Write Integer). This operator generates 
code to move an integer number from the top of the stack into 
the work area, changes it into its printable format, and sends 
the number to the output file. 

WRT: (Write Byte) . This operator generates code 
to move the two byte 'value from t. top of the stack into the 
code- area, changes it into its printable format, and sends it 
to the output file. 

WRTS: (Write String). This operator generates' 
code to move the string, stored at the address specified in 
RA$VAL, to the output file. 

DUMP: (Starts New Output Line). This operator 
generates code- to send a carriage return and line feed to the 
output file. 
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III. CONCLUSIONS 

The NPS-PASCAL project is a step closer to the full imple- 
mentation of STANDARD-PASCAL. for Intel 8080 based microcomputers. 
With- the major exceptions of PASCAL sets and files, the NPS- 
PASCAL compiler portion is complete. 

The associated development of a complete 8080 code genera- 
tor or interpreter is required to complete integrated program 
testing and timing tests. This will determine program correct- 
ness and checks the efficiency of NPS-PASCAL. Only then can 
firm conclusions be drawn on the usefulness of the complete 
system. 
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IV. RECOMMENDATIONS 

Although NPS-PASCAL was designed to meet the criteria of 
STANDARD PASCAL, there are a number of extensions that could 
easily be made to the language to increase its usefulness. 
These include complete implementation of external functions 
and procedures, string concatenation features, and additional 
standard functions and procedures . 

The grammar for NPS-PASCAL presently supports external 
subroutines. However, the means of accessing the compiled 
code have not been designed. Similarly, the ability to oper- 
ate on strings already exists in the grammar of NPS-PASCAL, 
but the associated mneurnonics and compilation procedures are 
not developed. 

Prior to language extension concerns, however, comes the 
implementation of the Code Generator. With the added ability 
of symbol table access, run-time debugging should be easier 
to implement. 
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APPENDIX A - COMPILER ERROR MESSAGES 

\ 

% \ 

DE j Disk error : Recompile. 

NC I Incorrect character : See User Manual. 

TO Symbol table overflow : Reduce number of declarations. 

EE Exponent size error : See User Manual. 

IE Integer size error : See User Manual. 

IP Improper parameter : The actual parameter type does not 
match the formal parameter type. 

IS Invalid subrange error : Check type and limits of de-- 
dared subrange. 

IT Invalid type error : Array component type specification 
invalid. 



IA 



NS 



AT 



DT 
PN 



AN 
AD 



Invalid array index : Array index types must b= scalar - 
INTEGER or PFAL ., types are invalid. 

Invalid set element : Set elements must be scalar. 



IC Invalid constant variable : Constant entry in. symbol 

table is invalid - probably due to a prior error. 

Assignment type error : Type of expression not com- 
patible with assignment variable type. 



IR Invalid read variable : Only INTEGER, REAL, or STRING 
values can be" read. 



. Duplicate type name : Type identifiers must be unique. 

Incorrect number of parameters : The total number of 
actual parameters fails to equal the total number of 
formal parameters. 

LS Label syntax error : All labels must be inteers. 

DC Duplicate constant name : Constant identifiers must 
be unique . 

TI Invalid type identifier , : Type identifier not previous- 
ly declared. 



Array nest overflow : Simplify declaration. 

Array dimension stack overflow : Simplify array dec- 
laration. 
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IV 

RN 

VN 

CE 

UL 

NE 
UO 
ET 
UP 
PE 
WP 
RT 
CV 
.SO 

vo 

NP 



Variant stack overflow : Reduce the number of variant 
cases . 

Record field stack overflow : Reduce the number of 
fields specified. 

Variable declaration stack overflow : Reduce the 
number of variables declared per line. 

Invalid expression : The variable types within the 
expression are not compatible. . 

Undefined label error : Label not declared in label 
statement. 

Incorrect actual parameter : The actual parameter 
must be a variable and not an expression. 

Invalid unary operator : Variable type must be 
INTEGER, REAL, or subrange of INTEGER. 

Invalid expression type : The types of variables used 
in an expression are incompatible. 

Undeclared procedure : Procedure identifier not pre- 
viously declared. 

_ -_..-,- ^__^ r . . rr>vii=r oarameter format can only be 
Para.iut;Lt=j. error : mxs puitiiueLci. LVl -'"'-'- J 

used in a write statement. 

WRITE$STMT parameter error : The length parameter has 
to be of type INTEGER. 

WRITE$STMT parameter error : The parameter has to be 
of type REAL. 

Incorrect control variable : The control variable h<" 
not been declared or is of type REAL. 

State stack overflow : simplify program. 

Variable stack overflow : Reduce the length of variable 
printnames. 

No production : Syntax error in source line.- 
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APPENDIX B - NPS-PASCAL OPERATORS 



ARITHMETIC OPERATORS 



Operator 



/ 

DIV 

MOD 



Operation 

addition 

subtraction 

multiplication 

division 

division with 
truncation 

modulo 



Binary 

Type of operands 
integer or real 
integer or real 
integer or real 
integer or real 
integer 

integer 



T ype of result 
integer or re^l 
integer or real 
integer o\r real 
real 
integer 

integer 



Unary 



Operator 


Operation 




Type of 


operands 


Type of 


result 


-j- 


identity 




integer 


or real. 


integer 


or real 


-. 


sigh inversio 


n 


integer 


or real 


integer' 


or real 


B. BOOLEAN OPERATORS 






- . 






Operator 


Operation 




-Type of 


operands 


T*/t>e of 


result 


OR 


•logical "or" 




Boolean 




Boolean 




■AND . 


logical "and" 




Boolean 




Boolean 




NOT 


logical negat 


ion 


Boolean 




Boolean 
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C. SET OPERATORS • 

Operator ' Operation Type of operands Type of result 

J + set union any set type T t 
f ' 

.. ~ set .difference . any set type T T 

* set intersection any set type T T 



D. RELATIONAL OPERATORS 



operator l ype of operards Type of result 

any set, sample Joolean 

pointer or string type 

K> an Y set, simple Boolean 

pointer or string type 

< any simple or string type Eoolear. 

> any simple or string type Boolean 

< = any set, simple or Boolean 

string type 

> ~ any set, simple or Boolean 

s-trina type 

IN left operand : o,-.i*- or- Boolean 

dina'J. type T 
right operand: SET OF T 

when simple type = INTEGER, 'REAL cr scalar tyre. 
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APPENDIX C - NPS-PASCAI, STANDARD TABLES 

A ' Table of standard identifiers 
Constants: 

false, true 
Types : 

integer, Boolean, real, char, text 
Program parameters : 

input, output 
Functions : 

abs, arctan, chr, cos, eof, eoln, exp, In, odd, ord, 

pired, round, sin, sqr, sqrt, succ / trunc 
Procedures : 

get, new, page, put, read, readin, reset, rewrite, 

seek, write, writeln 
Directives : 

forward, external . 

B. Table of reserved words 

cast- 

downt,o 

file 

if 

nil 

packed 

repeat 

type 

with 



and 


array 


begin 


const 


div 


'do 


else 


end 


eop 


for 


function 


goto 


in 


label 


mod 


not 


of 


or 


procedure 


program 


record 


set 


then 


to 


until 


var 


while 
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APPENDIX D - NPS-PASCAL LANGUAGE STRUCTURE 

% I' 

I 

This appendix describes the language in BNF notation followed 
by the semantic actions associated, with the individual productions. 
The description, offset with asterisks, is given in terms of the 
compiler data structures and the intermediate code generated. Num- 
bered productions without a production result indiea^a empty pro- 
ductions. Items enclosed in brackets and separated by slants are 
alternative semantic actions. N/A indicates no action is taken. 
This notation is based on that used in Reference 9 and Reference 
10. 



1 <program> : :- Xprogram headiag> <block> . 

* <program heading> J <block> ? 

* ALL f {number of bytes allocated for variables} 

* ENDP {end of file indicator} 

? <procedure heading> <block> . 

* <procedure heading> ; <block> i 

* ALL ; {number of bytes allocated for variables] 

* ENDP {end of file Indicator} 

3 <function heading> <block> . 

* <procedure heading> ; <block> J 

* f.LL J {number of bytes allocated for variables} 

* ENDP {end of file indicator} 

4 <program heading> ::= PROGRAM <program ident> ( 

<xfile ident> ) ; 
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* <program identifier^ ; <xfile identifier;- 

5 <xfile idenO ::= <file ident> 

* <file identifier> 

6 <ifile Uent> , <file ident> 

* <xfile identified ; <file 14entifier> 

7 <prog ident> : := <identifier> 
N/A 

8 <file ident> : := <identifier> 

* <identifier> 

* {enter file identifier in symbol table} 

9 <block> ::= <14p> <cdp> <tdp> <vdp> <p&fdp> <stmtp> 

* <label declaration ?art> 

* <constant definition part> 

* <type definition part> 

* <variable declaration part> 

* <ppocedure and function declaration part> 

* <statement oart> 



10 



<lip> : 
<empty> 
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12 



13 

4* 

* 

14 
* 

15 
* 

15 
* 

17 
# 

ia 



LABEL <label string> ; 
<label string> 

<label string> : := <label> 

<label> {enter label in symbol table} 

<label string , <label> 
<label string> ; <label> 
{enter label in symbol table} 

<label> : := <number> % 

<nu'nber> {check number type} 

<cdp> ::= 
<empty> 

CONS? <const def> ; 
•(constant definition> 

<const def> ::= <ident const def> ; 
<identifier constant definition> 

<const def> » <ident const def> 
,<constant definition> ' 
identifier constant definition} 



19 <ident const def> ::= <ident const> = <cbnstant> 
* <identifier constant> ; <constant> 
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* {enter constant value in symbol table} 

20 <ident const> ::= <identif ier> 

* <identif ier> {enter constant entry In symboi table} 

21 <constant> ::= <number> 

* <number> {assign constant attributes} 

22 <sign> <number> 

* <sign> ; <number> {assign constant attributes} 

23 <constant ident> 

* <const'ant identified {assign constant attributes} 

24 <sign> <constant ident> 

* <sign> ; <constant identifier> 

* {assign constant attributes} 

25 <string> 

* <string> {assign constant attributes} 

26 <c.onstant ident> : := <identifier> 
.* <identifier> 

2? <sign> s: = + 

* {assign SIGNTYPS value} 

2S 

* {assign SISN'TTP'S value} 

29 <tdp> ::= 

* <enpty> 

20 TTPE <ty?e def string> 

* <type definition string> 

31 <ty?e def string> ::= <type id> 

* <type ideRt!fier> 

22 <ty?e def string> » <type id> 

* <type definition string> i <type ia> 

33 <type id> : := <type ids> = <type> 

* <type identifiers> » <type> 

* {alter type entry} 

34 <ty?e ids> :: = <identifier> 



# 



<identifier> {enter type} 



3b <type> ::= <simple type> 

* <simpie type> 

36 structured type> 

* <structured type> 
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37 

3£f 
4 

f 
39 



40 
* 

41 
* 

42 



43 
* 

44 
* 

45 
* 

46 
47 



48.. 



49 



* 



51 



<pomter type> 
<pointer type> 

<simple type> ::= <type IdenO 
<type identified 

( Xtident string> ) 
<type identifier string> 

<constant> .. <constant> 
<constant> ; <constant> 
{enter subrange entry in symbol table} 

<type ident> ::= <identifier> 
<identifier> {set TYPE$LOCT} 

<tident string> ;: = <identifier> 

<i , entifier> 

{eiter user defined element in symbol table) 

<tident string> , <identifier> 
<tident striag> ; <identifier> 
{enter user defined element in symbol table} 

<structured type> ::= <unpacked structured type> 
<unpac*£d structured type> 

PACKED 

<unpaciced structured type> 
<nnpac£ed structure ty?e> 



<unp*cked structured tyre> 
<array type> 



<record type> 
<set tyoe> 



<file type> 



:= <array type> 
< record type> 
<set type> 
<flle type> 



<array type> : := ARRAY [ <index type string> ] OF 

<component type> 
<index type striag> ; <component type> 

{enter array type, each index address in the symbol table, 
displacement vector information, and array offset in the 
symbol table} 

<index type string> s:= <index type> 
<index type> {set array dimensions} 
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52 <ir.dei type string> , 

<index ty?e> 

* <index type string) J <iaiex type> 

* X set array dimensions} 

53 <index type> : := <simple type) 

* <simple type> 

54 <compc>nent type> ::= <type> 

* <type> 

55 <record type) ::= RECORD <field list> END 

* <field list> {enter record type} 

56 <field list> ::= <fixed part) 

* <fixed part> 

5? <fixed part> ; <variant part> 

* <fixed part> ; <variant part> 

58 <variant part) 

* <variant part> 

59 <fixed part> : := <record section> 

* <recori section) 

60 <fixed part> ; <record section) 

* <fixed part> J <record section) 

61 <record section) : := <field ident string) : <type> 

* <field identifier string) ; <ty?e) 

* {enter record attributes} 

62 

* <empty> 

63 <field ident string) : := < field ident) 

* <field identifier) 

64 <field ident string) , 

<field ident) 

* <field identifier string) t <field identifier) 

65 sfield ident> ::= <identifier> 

* <identifier> {enter record field in symbol table} 

66 <variant part) : := CASE <tag field) <type ident) CF 

Cvariant string) 

<tag field) 5 <type identifier^ 5 <variant string) 



* 



67 CASS <type ident) 0? 

<variant string) 
* <type identifier) J <variant string) 
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66 <variant string> : := <variant> 

* <variant> 

69 <variant string> ; <variant> 

* <variant string> ; <variant> 

70 <tag field> ::= <field ident> : 

i * <field identified {set TAGGED to true} 

71 <variant> ::= <case prefix> ( <field list> ) 

* <case prefix> ; <field list> 

72 

* <empty> 

73 <case label list> ::= <case label> 

* {set LA3EL$STACK(SP)} ; KASE ; <case label> ; 

* {LABEL $STACI(SP)} 

74 <case label list> , <case label> 

* <ca?e label list> ; KASE » <case labe'l> I 

* {LABSL$STACK(MP}} 

75 <case label> : := <canstant> 

' ,? <constant> 

* [ {set variant attributes} /• {set CASE^STMT label} ] 

76 <set type> ::= SET 0? <base type> 

* <base type> {enter type in symbol table} 

77 <base type> ::= <simple type> 

* <simple type> 

; 73 <file type> ::> FILE OF <ty?e> 

* <type> {enter type in symbol table} 

|79 <pointer type> ; := <type ident> 

'; * <type identifier> {enter type in symbol table} 

60 <vdp> ::= 

'. * <empty> 

81 VAE <Var declar string) ; 

* <variable declaration s.tring> 

92 <var declar string> ::= <var declar> 

• s <variable declaration> 

83 <var declar string> ; 

<var 'declar> 

* <variable declaration ttrmg> ; 

* <varlable declaration} 

64 <var declar> : := <ident var string> : <type> 
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* identifier variable string> ; <type> 

* {set variable attributes} 

85' <ident var string> ::= <identifier> 

*|' <identif i« a r> {enter variable in symbol table} 

86 <ident var stringX , 

<identifier> 

*l identifier variable string> ; <identifier> 

* {enter variable in symbol table} 

87 <p&fdp> ::= 

* <empty> ; LDII {number of parameters} ; 

* LITA {porf PRT address} i LITA {porf S3P} ; SAVP 

* {only if SC0?S$NUM > 1} 

88 <porf declar> 

* <procedure or function declaration> ; 

* LDII {number of parameters} 

* LITA {porf PET address} ? LITA {porf S3?} ; SAV? 

* {only if SCOPES NU-M > 1} 

89 <?orf declar> ::= <proc or func> ; 

* <procedure or function> 

90 <porf declar> <proc or funct> ; 

* <procedure or function declaration> 
<procedure or function> 



* 



91 <proc or funct> ::= <procedure heading> <block> 

* <pi-ocedure heading> ; <bloclc> ; 

* LITA {SB?} ; LITA {?RT address} 5 UNSP; 

* HTN ? L3L {orocedure label + 1} ? LDII to 5 

* Lli'A {S3P} ; STDI {SBP initially 0} 

92 <procedure headiag> <directive> 



* 



* 



# 



<procedure heading> ', <directive> 



93 <function i<?ading> <block:> 

* <function heading> ? <bloclc> 5 

* LITA {S3?} J LITA {PET address} J UNSPJ 

* HTN ; LB I. {orocedure label + 1} ; LDII ; 

* LITA {SEP.} "J STDI (SEP initially 0} 

9^ <fucction headina> <directive> 



<function headlng> ; <directive> 



95 <directive> ::= <identifier: 



<identifier> {determine if "forward" or "external"} 



96 <procedure heading> ::= <proc id> » 
* . <procedure ldentifier> 

97 <proc id> { 
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<formal para section list> ) ; 

* <procedure identtfier> ; 

* <fornal parameter section list> ? 

* {generate listing of formal parameter types and their 
associated PRT addresses in symbol table} 

98 <?roc id> :: = PROCEDURE <identifier> 

* <identifier> {enter procedure in symbol table} 

99 <formal para sect list> ::= <formal para sect> 

* <formal parameter section> 

* {set formal parameter attributes} 

100 <fonal para sect list> ? 

<formal para sect> 

* <formal parameter section list> > 

* <formal parameter section> 

* {set formal narameter attributes,} 

101 <formal para sect> : := <para grou?> 

* <parameter group> 

102 VAR <para group> 



* 



<parameter group> 



* {modify variable parameters ?0RM$FI2LD entry} 

103 FUNCTION <para group> 

* <parameter group> 

104 PROCEDURE <proc ident list> 
■* <procedure identifier list> 

135 <proc ident list> ::= <identifier> 

* <identifier> 

12(6 <oroc ident list> , <identifier> 

* <?rocedure identifier list> ; <identifier> 

137 <para group> : := <para ident list> : <type ident> 

* <parameter identifier list> J <type iientifier> • 

108 <para ident list> ::= <identif isr> 

* <identifier> {enter formal parameter in symbol table} 

109 <?ara ident list> , <identifier> 

* <parameter identifier list> ; <identifier> 

* {enter formal parameter in symbol table} 

113 <function heading> : := <funct id> : Cresult type> J 

* ■ <function ident if ier> ; <result tyoe> 

* {set the function's type field} 

111 <funct id> (' 

<formal para sect list> ) t 
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<result typeS ? 

* <function Identified ; 

* <formal parameter section lists ', <result type> 

* {generate listing of formal parameter types and their 
associated PRT addresses in symbol table? set the 
function's typs field} 

112 <funct id> ::= FUNCTION <identifier> 

* <identifier> {enter function in symbol table} 

1.13 <result type> ::= <type ident> 

* <type identified 

* {allocate proper length of function in the PRT} 

114 <stmtpS ::= <compound stmt> 
;..* <compound statements 

115 <stmt> : := <bal stmts 

i* <balanced statement> 

116 <unbal stmt> 
'* <unbalanced statements 

117 <label def> <stmt> 

* <label definitions J <statement> 

118 <bal stmts ::= <if clauses <true parts ELSE <bal stmts 

* <if clauses ? <true parts » <balanced statements ; 
'.* LBL {L.iBELST»CK(M?)+l} 

119 <simpla stmts 
*■ <simple statements 

120 <unbal stmts : if <if clauses <stmtS 



* 



<if clauses ? statements J 



i* LBL {LSBELSTACK(M?)} 

121 <if clauses <true parts ELSE 
1 <untal stmts - 

* <if clauses ; <true parts. J 

* <unbalanced statements J 

* LSL (LABELSTACK («?)+!} 

122 <if clauses ::= IF <expressionS THEN 

* Expressions ; NOTX J {set LABELSTACK(MP) } ; 

* 3LC {LABELST\CK(MP)} 

123 <true parts ::= <bal stmts 

* <balanced statements ; 

* BRL {LABEL5?ACK(SP-l)+l} ; 

* LBL {LA3ELSTACK(SP-1)} 

124 <label defS ::= <labelS : 

* <labelS J LBL {PRT address} 
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125 <simple stmt) ::= <assignmen.t stmt> 

* <assignment statement) 

i * 

128' <procedure stmt) 

* J <procedure statement> 

12? <vuile stm> 

*l <while statement) 

128 <repeat stmt> 

* <repeat statement) 

129 <for stmt) 

* <for statement> 

130 <case stmt> 

* <case statement> 

131 <vith stmt> 

* <vith statement) 

132 <goto stmt) 

* <goto statement> 

133 <compound stmt> 

* <compound statement> 

134 

* <empty statement) 

135 Assignment s 5 .mt> ::=* Oariable) := <expression> 

* <variable> I <eipression> ? 

* LITA {variable ?RT address} 

* [STD / STDI / STD3 / CNAI 5 STDB] 

136 <variable> ::- Oariable ident> 

* <variable identifier) 

137 Oariable> ~ 

* <variable> {NOT IMPLEMENTED} 

133 Oariable) [ <expres list) ] 

* <variable> ; <expression list> ; 

* LDII {variable PRT address} J 

* SUB {number of array indicies} 

139 <variable> . <field ident> 

* <varlable> J <field identifier) 

* {modify PRT location and variable type} 

140 <variable ident) : := <identifier> 

* <identifier> {set variable type and PRT location} 
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141 <expres list> ::= <expressior> 

* <expressioa> 

142 <ex?res list> , <expression> 

* Expression list> ; <eipression> 

143 <expression> : := <simple expression> 

* <simple expression> 

144 <simple expresslon> 

<relational operator^ 
<simple expression> 

* <slmple expression> ; Relational o?erator> ; 

* <slmple expression> ? 

* [BOUI / NSOI / tEQI / GEQI / LSSI / GETI / 

EQLB / NEQB / LEQ3 / GEQ3 / LS33 / GHTB / 
SQLS / NEQS / I.EQS / GEQS / L5SS / GRTS / 
EQSET / NEQST / INCH / INCL2 / XIN] 

145 Relational operator> ::= = 

* {set relational operator} 

146 < > 

* {set relational operator} 

147 < > 

* {set relational operator} 

148 > = 

* {set relational operator} 

149 < 

* {set relational operator} 

150 > 

* {set relational operator} 

151 t In 

* {set relational operator} 

152 <term> ::= <factcr> 

* <factor> 

153 <terrt)> <mu:- tiplying oper£tor> <factor> 

* <term> ; <mu Itiplying operator> ; <factor> ; 

* [WILT / MUL3 / UNION / CNVI J CN2I ; DIVB / 

DIVB / DIVI / HODX / ANEX} 

154 <multiplTin^ operator> : : = * 

* . {set : operator type} 

155 / 

* {set operator type} 



i(P 



156 
* 

*l 
f 

15(8 
* 

i 

159 
* 

160 
# 

161 

* 
* 

162 



163 
164 



165 
* 

if 
* 



166 
* - 



167 

* 

168 
169 



170 
* 



{set operator type} 
{set operator type} 

{set operator type} 

<simple express ion> 
<term> 



DI7 

MOD 

AND 

<term> 



<sign> <term> 
<sign> } <term> J [NEGI / NEGB] 

<simple expression> 
<adding operator> <term> 

<simple express ion> i <adding operatcr> J 

<term> ; 

[UMION / ADDI / ADDS / STDI? / SUBI / SUBB / BOR] 

<adding operator> ::= + 
{set operator type} 



{set operator type} 



(set operator tvopl 



OR 



<factor> :: = <variable> 

<variable> ; 

{ (built-in-function identifier} / LITA f?RT location} » 

{LODI / LOD / LODBT / LDII {value} / LDII {value} ; NSGI / 

LDBI {value} / LD?I {value} ? M253 ] 

<variable> ( <actual para list> ) 
<variable> ; <actual parameter list> ; 
{verify parameter count} 

[ (built-in function identifiers} / LITA {PR? location} ; 
. [ LOD / LODI / LODB ] ] 



<expression> 



( <erpression> ) 



<set> 

<set> {NOT IMPLEMENTED} 

NOT <factor> 
<factor> i NOTX . 

<number> 
<number> 
[LDII {integer value} / LDI3 {BCD real value}! 
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171 NIL 

1?2 <string> 

* <string> ; LDSI {ACCUM} ; NOP 

173 <actual para iis'O ::= <actual para> 

* <actual parameter> {initialize parameter count} 

174 <actual para list>., 

<actual para> 

* <actual parameter list> J <actual parameter> 

* {incriment parameter count} 

175 <set> '.:= [ <element list> ] 

* <element list> {NOT IMPLEMENTED} 

176 <element list> ::» 

* <empty> {NOT IMPLEMENTED} 

177 <ielement list> 

* <xelement list> {NOT IMPLEMENTED} 

178 <xelement list> : ; - <element> 

* <element> {NOT IMPLEMENTED} 

179 <xelement list> , <elerrent> 

* <xeleroent lis\:> ; <elemem> {NOT IMPLEMENTED} 

180 <element> : := <express'ion> 

* <expression> 

181 <expression> .. <expression> 

* <expression> ; <expression> 

162 <goto strut > ::= GOTO <la"bel> 

* <labei> J 3RL {PRT location} 

183 <compound stmt> ::= BEGIN <stmt lists> END 

* <statement lists> 

134 <stmt lists> ::= <stmt> 

* <statement> 

135 <btmt lists> J <stmt> 

* <statement ltsts> ; <statement> 

186 <procedure stmt> : :- <procedure ident> 

* <procedure ideQtifier> ; 

'* [ {built-in Drocedure identifier} / PRO {orocedure label} ; 

* DEL ] " 

1-7 < procedure idant> ( 

<actual para list> ) 
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-* <procedure identified ; <actual parameter lists> J 

* [verify parameter count}. 

* [ {built-in procedure identifier} / PRO {procedure label} ; 

* EEL 1 

198 <procedure ident> ::= <identifier> 

* <identif ier> 

* [ {determine which built-in procedure) / 

{store procedure attributes in stacks} ] 

199 <actaal para> ::= <expression> 

* <expression> » 

* C ?ARKX {if R2ADPARMS = false} / 

[ WRT / WRT3 / VRTI / WRTS ] {if WRITEsSTMT = troel / 
[ RDV / EDVB / RDVI / RDVS 1 {if RSADSSTKT = true} ] 

190 <expression> : <expression> 

* <expression> i <expression> » 

* [ WRTB 01 / WRTS 31 } 

131 <exprei>sion> : <expression> : 

<expression> 

* <expression> ; <exuression> ; <exoression> ; 

* «RT3 02 

192 <case 3tmt> :t= <case ext>ress> <case list exemt llst> 

END 

* <case ex?ress> ; <case list element Hst> .' 

* { set LAEEL$STACS:( M P)} LBL {LABSL$STACX (MP ', } 

193 <case ex?ress> : := CASS <expression> CF 

* <ex?ression> {CASE$STMT ~ true} 

* {set LAE3LSSTACKW?) , i net intent CASE$COUNT} 

194 <case list elemt list> j := <case list element> 

* <case list elements ; 3RL (LA3EL$STACK(flF~l ) } ; 

* L3L {LABEL$5TAC£(MP)+1} 

195 <case list elemi list> ; 

<case list element> 

* <case list element list> ; <case list element> ; 

* BRL {LABELSS?AC£(MP-1)} ; LBL {LABEL$STACK( SP )+l } 

196 <nase list element> : := 

* <empty> {CA3E$STMT = false} 

19? <case pr<?fix> <stmt> 

* <case prefix> ; <statement> 

198 <case prefix> ::= <case label list> : 

* <case label list> ? BRL {LA3EL$STACK(M? j+1} 5 
*■. LBL {LABSL$STACK(M?)} 

199 <with stmt> : «.= <with> <rec variable list> <do> 
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<bal stmt) 

* <with> ', <record variable list) ; <do> ; 
i * <balanced statement) {NOT IMPLEMENTED} 

200 <with> t:= WITH 

* {NOT IMPLEMENTED} 

201 <rec variable list) : := Oariable) 

* <variable> 

202 < r e c variable list> , 

<variable> 

* <record variable list> ; Oariable) 

203 <do> ::»• DO 

* {set LABELSSTACK(SP)} 

* ELC {LAB£L$STACK(S?)} 

204 <while stmt> : := <vhile> Expression) <do> <bal stmt) 

* <while> ; ■ <expression> ; <do> ; <balanced statemor.t) ; 

* 3RL {LABEL$STAC£(MP)} J I3L {LA3ELSSTACX ( S?-l )} 



205 <vhile) ::= WHILE 



{set LABSL$STACK(SP}} 
L3L {LA3EL$STACK(SP}} 



206 <for stmt> ::= EOF. <control variable) := <for list) 

DO <bal stmt) 

* <contrcl variable> ; <forlist> ; <io> ; 

* ('halam'Oit et'j* ama nt-"" • T3QT fT«T>E>Ti« , m«r«y/-Ti 1\ ,tl . 

* L3L {LA3ELiSTACK(SP-l}} 

207 <for I'isO ::= <imi.tia.-l value) <r, ) < final value) 

* <initial value) ', <to> ; <final value) ; 

* GEQI 

228 </'in;tial value) <dowato> < final value) 

* <initial value) 4 <downto> \ <final value) 

* LEOI 

209 <control variable) ::= identifier) 

* <identifier> {set variable type and PRT location} 

213 <initial value) ::= Expression) 

* <expression> ; 

* LITA {control variable PRT location} ; [ STOP / STO 1 ; 

* {set lASBLSSTACK(SP)} 5 BRL {LA3EL$STACK< S? } } ; 

* L3L {LABEL$STACK(SP)+lt ', 

* LITA {control variable PR? location} ; [ STDI / STD } 

211 <final value) :r= Expression) 

* <expression> 

212 <repeat stmt) ::= <repeat> <stmt lists) UNTIL 
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<expresslon> 

* <re?eat> ? <statement lists> ; <ex?ression> ; NOT* i 

* BLC (LABEUSTACK(MP)} 



213 <rejpieat> ::= REPEAT 

* { set LABEL$STACI(S?) 

* LBL {LABELSSTACK{sp)> 



214 <to> ::= TO 

* INC ; LEL {LABEL$STACK(SP -1 ) } 

215 <dovnto> ::= DOWNTO 

* DEC J LBL {L«BEL$ STACK (SP-1)} 
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APPENDIX E - INOPERATIVE CONSTRUCTS 

The accompanying list shows the NPS-PASCAL constructs that 
had not been, fully implemented at the start of this project. 
Those constructs requiring further work and testing at project 
completion are denoted with an asterisk. 

Since the original work on NPS-PASCAL was not based on 
STANDARD PASCAL CONSTRUCTS, it was necessary to first develop 
a new grammar utilizing the required special characters and 
reserved words, and following the rules stipulated in STANDARD 
PASCAL. Consequently, the inoperative constructs listing is 
based on STANDARD PASCAL constructs, and does not include 
PASCAL language extensions contained in NPS-PASCAL. 

Program parameters specified in the program heading 

Procedure and Function Declaration Part 

Block structure 

The WHILE statement 

The FOR statement 
' - The CASE statement 

Array access 

* 
Packed arrays 

Record variant part 

* 
Record tag field 

Record component access 

String Operators 

The WITH statement 

* 
Set assignments 
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Set operators 

- Set relational operators 

- | File buffer variables 

- [ Standard file-handling operators 

- ' Textfiles 

* 
Pointer variables 

Procedure and Function Parameters 

Recursive execution of Procedures and Functions 

Procedure statements 

Function values 

Directives 

Standard Procedures 

Standard Functions 

Program input from input file 

Program output to output file 

Input and Output to non-standard files 
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APPENDIX F - INTERMEDIATE CODE DECODE PROGBAM 

Since the NPS-PASCAL compiler was developed without the 
parallel development of the 8080 Code Generator, an alter- 
native means of checking the generated intermediate code was 
developed. The result is the PL/M program DECODE shown in 
the program listings. 

DECODE opens the compiler generated intermediate code file 
(<FILENAME>. PIN) and converts the hexadecimal values into the 
same NPS-PASCAL mneumonics found in the compiler. The para- 
meters associated with certain operators such as labels, branch- 
es, and load immediate mneumonics, are printed out immediately 
following the operator. Integer and real numbers are printed 
out in decimal format for ease of readability. Strings are 
displayed in their ASCII character format. 

The execution orocp^ui*' 1 ' fnr vi°win« n»n •; ~-i-a-v-~.rt.-3-; ->*.-i „^j_ 
is as follows: 

(1). Compile an NPS-PASCAL program using the command: 
- PASCAL <FILENAME> . 

(2). Upon successful compilation, with no program errors, 
input the command: DECODE <FILENAME> . 
The contents of the <FILENAME> . PIN file will be printed 
out on the console. The DECODE program leaves the intermediate 
code intact in its file for further use in the Code Generator 
program. 
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APPENDIX G - SYMBOL TABLE DISPLAY PROGRAM 

A symbol table display program was developed as an aid to 
compiler development, and particularly, for use in program 
debugging. SYMBOLTABLE is a PL/M program that prints out the 
information stored in the SYM file create i by the NPS-PASCAL 
compiler. This program is contained in the program listings 
section. 

SYMBOLTABLE contains many of the same features as DECODE 
to increase readability. Integer and BCD real values stored 
in the symbol table are output in decimal form. PRT addresses 
are also displayed in decimal format. Printnames, strings, 
and scalars are all shown as ASCII characters. Hash colli- 
sions with other program identifiers are indicated. Identi- 
fier types are specified along with any additional data that 
siiiyles out this identifier. 

Of course, program execution requires the NPS-PASCAL pro- 
gram in question to be compiled first. After receiving the 
compilation complete message on the monitor (a zero error 
count is not required) , the user can print out the program 
symbol table information using the command: SYMBOLTABLE 
<FILENAME>. The symbol table file remains intact on the disk 
for use during the 8080 code generation phase. 
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/ >;: It if if if if if *fi if * <: if * * * * * # ♦ # * < : * * * * >'.< if * <« ♦ * * * # * if if * & £ # 4 ijc <; >;< * * * >;; if %- if if if if if. if if if -•: & # >^ if :f sj: :;t j - : if I 

/.*** SYSTEM LITERALS ***/ 

/<■.**** *»;: * :;:*** * # * * iyif.it ^* * >:• * * if if ■;.. if if if if * * * :> * ■:.:. if * »>-; .if :\- ifif^ifUifififi f ififUif^^ifir^if^ir-^-ir^il- / 
/ if ir £ & 5',- # z\: >f if if if if if if if if £ if %• >i» if if ^-if if if if & if A : if fc i,- if if # # >! ; >!< v J i* >! ; if *» : J i* v '!« # ^ ^ »i ; >1 ; & # >!» <* >! 5 # >I C >l c V ?i< # 5;i ?;< >;; >J; if if if / 



DECLAHE LIT 
CR 



LIT Eh ALLY 'LITERALLY', 
LIT '13', 



■p 

01 



37: 

38: 

39: 

40: 

41 

42: 

4-3 

44 

a 

46 

47 

48: 

49 

50 

51: 

52: 
53 
54 
r5 : 
56; 
57: 
58 
59: 
'6P: 
61 
62 
63 
64: 
65: 
66: 
67 
6ri: 
69: 
70 
71 
72: 



IjCL 



LP 

PCI • 

POS 

NEC 

'lAB 

PhOC 

ELOS 

BOOT 

TRUE 

ADDR 

FALSE 

COMMENT 

UNCOMMEN 

FILEEGE 

FOREVER 

STATESIZ 

IND^XSIZ 

BUILT$IN 

EUILT$IN 

QUESTION 

CON'S $ST1< 

CONS'jKUM 

CONS$IDC 

CONS$SID 



LIT '3AH', 

LIT 'DECLARE', 

LIT 'e', 

LIT 'l'j 

LIT '09H', 

LIT 'PROCEDURE' 

LIT '5H', 

Lit '0', 

LIT ''!", 

LIT 'ADDRESS', 

LIT ''0', 

LIT "7BH', 

LIT ''7DH', 

LIT ' 1 ' 

LIT 'WHILE TRUE 

LIT 'ADDRESS', 

LIT 'ADDriESS', 
LIT 'eCH', 

LIT '0DH', 

LIT '3EH', 

LIT '3', 

LIT '0', 

1', 



F 

E 

$PROC 

iFUNC 

MASK 

$TYPE 

$TYPE 

•iT$TYPK LIT 

FNT^TYPE I [T 



IDFNTSIZE MT '32', /* 

VARCSIZE LIT '100', ./* 

PSTACKSIZE LIT '49', /* 

FOLCHAE LI f '0DH', /* 

SOURCEKECSIZE LIT '128', /* 

INTHECSI'ZE LIT '128', /* 

CONBUFFSIZE LIT '62', /* 

HASHTBLSIZE LIT '128', /■* 

HASHMASK I LT '127', /* 

FOFFILLEK LIT 'lAH', /* 



/' : 



ENTRY 
EXIT 



POINT TO DISK OP 
TO RETURN TO OP. 



, SYS*/ 
SYi. */ 



MAX I 

SIZE 

SIZE 

END 

S I Z E 

INTER 

SIZE 

SIZE 

HASHT 

ChAli 



7 



DENTIFIER SIZE + 

OF VAhC STACK*/ 

OF PARSE STACKS */ 

F SOURCE LINE CHARAC 

OF SOURCE FILE RECOft 

MEDIATE FILE RECORD 

OF CONSOLE BUFFER */ 

OF HASHTABLE */ 

ABI.fi SIZE -1 *■/ 

EOfc LAST pECOHD ON FILE */ 



TER */ 
D */ 
SIZE ''7 



73; 

74 

75; 

76: 

77 

78, 

79: 

80: 

61 

82 

83: 

84: 

65; 

ee: 

67 

e8: 

89; 

93: 

91 

92: 

93 
94: 
95. 
96; 
97 
93 
99: 
100: 
101: 

102: 

103: 

104 

105; 

106: 

107 

106 



STRINGDELIM 

CGNTCHAR 

M^XONCOUNT 
MA XI NT 
RCDSI7.E 
MAX$NFST 
AttRY$NEST 
MAX$ARRY:?DIH 
FOKMMASK 
• TYPEMASK 

/* FORM ENTRIES */ 



LIT '2?H' f /* CHAR USED TO DELIMIT STRINGS */ 



LABL$ 
CONSi 
TYPE* 
V/!R$E 
PROC:? 
FUNCi 
FILE* 
TYPE$ 



ENTRY 

ENTRY 

ENTRY 

NTnY 

ENTRY 

ENTRY 

ENTRY 

DCLE 



/* NUMBER TYPFS */ 

ORD^TYPE 

INTEGER^TYPE 

CHAR$TYPE 

UNSIGN$EXPON 

SIGNED$EXPON 

POOLEAN$TYPE 

REAL$TYPE 

COM PL EX $ TYPE 

STRING$TYPE 



LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 



'5CH 

'25',' 

'32767 

'6' 

'3' 

'4' 

'5' 

'?' 

"38H 



LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 



LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 



/* 

/* 
t 

/* 
/* 
/* 
/* 
/* 
/* 



CONTINUATION CHARACTER */ 
MUX NUMBER ON STATEMENTS */ 
/* MAX INTEGER VALUE */ 
BYTES USCD FOR BCD VALUES ■*/ 
MAX LEVEL OF NESTS FOR TYPES 
MAX NESTING LEVEL FOR ARRAYS 
MAX AHKY DIMENSIONS */ 
USED TO DETERMINE FORM TYPE */ 
USED TO DETERMINE FORM FIELD*/ 



'I 

'? ' 
'3' 
'4' 
'5' 
'6' 
'?' 



'0' 

'1' 

'2' 
'3' 

'4' 
'5' 
'2* 
'4' 
'4' 



v 



/ 
*/ 



/* MANY OF THE FOLLOWING VARIABLES CAN BE RFPL^CED BY MAKING 



109 . us.g OF THF PARALLEL PARSF STACKS . 'S [ 

110: I,CL BYTE 

112: CONStItYPE BYT?'. ' /* TYPE OF CONSTANT */ 

113:' FORM BYTF, — «_ 

114; FXPON BYTE, 

Ub: VECPTR BYTE, 

116: TYPE>IUM BYTE, 

111: sSbDOS AD T Dfi'lNITIAL(6H), /*ADDR OE PTR TO TOP OF BDOS*/ 

\\ 9 ". M AX BASED STAHTBDOS ADPH , 

\ 2 Vi TYPE^ADDft ADDf , 

121: TYPEHOCT ADDR, 

122; VAsiPTR BYTE:, 

123: VAkiPARM^PT.H BYTF, 

124: ALOCBASICTYP BYTE, 

125: ARRY$QTf{MAX*AnRY*DIM) ADDR, 

126: VAI.$Bf3E(10) ADD};, 

g !>?. VAH$BASE1(10) A'DLH, 

126: TYPE*?INPX BYTE, 

129: ALLCiCTY ADDK, 

130: TYPEFORH BYTE, 

131: TI?E,$ORTiNUM MTE, 

132: PAHENT^TYPE ADDk, 

133: CONST$INDX BYTK, 

134: LOOKUPUDUR ADDH, 

13«i: C0NST$yEC(4) BYT':., 

136: C0NST$VALUE(16) BYTF, 

137: CONSTiPN$HASHU) BYTE, 

138: CONSTiPN$PTh Bi'TF, 

133: C0NST$PN*SIZI.(4) BYTE, 

140: INTEGFR^DIFF ADDH, 

141: SUBR$VAL(2) APDU, 

i 4 2: SUBR'.TYPEU) BYTE, 

143: SUBRSPTH bYTE, 

144: SDBiTYP* APDri ADDh, 



146 

14?; 

143' 

149 

150: 

151 

152 

153 

154 

155: 

156: 

15?: 

158: 

159: 

160 

161 

162: 

1 63 : 

164 

165: 

166; 

167. 

163. 

169: 

1V0 ■ 

171 

172: 

173: 

174 

175 

1?C: 

177 

1?»: 

179: 



/*ni'R, 

IYTE, 
EYTS, 
FYTE, 

F.YTF, 



SUEi.^FOi'K BYTE, 

STGNVALU HTE. 

AR''Y$BASE 
ARRY^PTK 
ARKYiDIM^PTH 
PThPTh 

TAG$FD(MAX$NLST) 
VARicAS$TP(MAX*.NiLSf ) ADDH, 
VAHiCAS^VAL(HAX*.NFST) ADDh , 
REC$VAHiTYP(MAX$NEST) BYTE, 
hFC$NST BYTE INITIAL (255), 

PECORD$PTH BYTE, 

REC$ADDK(ltf) ADDR, 

REC$P*R$ADHIMAX$NEST) ADDR, 
VAHANT£PAhT(MAX^NEST) BYT?, 

FXD^OFSTSF.SEfMAX^NKST) ADDR, 
VAR$OFST$PSEU-1AX'?NEST) ADDH, 
CUliOPST(MAX<NEST) ADDf, 

NUM$ARRY$DIM(MAX$AKRY$DIM) £YTE, 
AhfiYl>PlMEN(25) ADDH, 
»FY$DM$ADJi$FTR BYTE, 
/* CASE STATEMe'rlT VARIABLES */ 
CASE$STK(1?) BYTF, /* nUMBkK 
CASE$COUNT BYTE IN1?IAL(255) 
■ C0NST$NUM$TYPE(4) JKYTE; 



OF STMTS IN CURRENT CASC */ 
/* LEVEL OE CASE STMTS */ 



y ft ;;. ft ft ft ft * * a ft ft £ ft ft * ft * ft * ft * * ft * # ft * * * * * ft * * * ft ft * # * * ft ft ft ft ft ftft * * ft ft ft ft ft ft ft ft * ft * ft ft ft ft ft ft ft ft ft / 
/ >;. ft ft ft ft ft ft ft ft ^. ft ft ft ft ft ft ;|: ft >;. ft ft ;;; ft ;'.: ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ftft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft >,' ft ft ft if I 

/*.** GLOBAL VARIABLES ***/ 

/ i\- 7',i %i ^l 5j; >?,i' t i # •>"/ ;Jt %.% # +f # %i%i%l%' t t ifrifcirX* -I'^ *I» # K*£ l 'J 5 ^"^ »Jf *•* v >J< v # ^ ! '1* ;I C v »!* >J S >| ; ^ ^ *r *i* V ^ X? ji &% Jjsjj! J^sC!*!^ 5 ^*! 5 v J r > r'fi :s r ! r' i ! c / 
/ >;» ;;« # ^; ;|t % )\t ;' ( ; jji ;|; ;Jc j); j;: ;;. ;] ; >\i ;J; y,; ;)- ;,; ;;; ■;',; jj; ?;. £ ;' ( : ;J; ;;; ^; %: >Ji i\t sjt ;*,; ;J; ;\ ;',c *.',( ;',; ;',< i\l ;\i jj; >[i ^: & aj s i'.i % iff £ j'J: ;Ji ij; # >J; 5',i ?t; <: rr s|C 5j; jjr ;Ji ?fi J|i >Jc ;J; *.;: V,; / 



ICL PCDNUH(iCDSIZE) BYTE, 

•SCOPE(lf-) AD.Oir, 






lb" 1 

132 

183: 

It 4; 

lfc5; 

186; 

167: 

16a: 

189: 

100 

1-Jl 

192 

193: 

194 

195: 

196 : 

197: 

19S: 

199; 

200; 

201 

202 

203 

2C4 

205: 

206: 

207 : 

203; 

209 

210; 

211 

212; 

213; 

214 

215; 

216; 



DCL 



SCOPE^NUM BYTE, 
TEMPBYTE J-YTE, 
TEMPBYTE1 BYTE, 
TEh'.pADDi: ADDL, 
TEMP A DDR 1 A DDK, 
PRODUCTION BYTE, 
Pl":V$SBT$ ENTRY A DDK 5 



/* COMPILE* TOGGLES */ 



L'lS^iTOKE'N BYTE 
LIST$PHOD BYTE 
LISTi-SOURCE BYTE 
DFBUG$LN BYTE 
LOVER$TO$UPPFR BYTE 
COMPILING BYTE, 

/* COUNTEIS */ 



INITIAL(FALSK) 
IMlTIAL(FALSE) 
INITIAL(FALSE) 
INITIAL(FALSE) 
INITIAL(TRUE), 



CODESIZE 
LABLCOUNT 
ERROR-COUNT 
»LLOC$ADDK 



A DDR, 

A DDK INITI A T .(0) 
ADDR INITIAL(0) 
ADDR INITIAM0) 



/* 

/* 

/» 



COUNTS NUMHEK OF LABELS */ 
COUNTS NUMBEii OF LABELS */ 
COUNTS NUMBER OF ERRORS ■*/ 
COUNTS PiiT ENTRIES */ 



/* FLAGS USED DURING CODE GENERATION */ 



NOINTFILE BYTE 

CASE$STMT BYTE 

WRITl'^ST'MT BYTE 

READ$3TMT BYTE 

NEW>STMT BY re' 

PISPOSI$STMT BYTE 

ALLOCATE BYTE, 

VARPARM BYTE, 

KFADPAJiMS BYTE, 



INITIAJ.(FALSE), 

INITI A L( FALSE) , 

IMITI Al.( FALSE), 

iNITlAL(iALSF), 

INITIAL(FALSE) , 

INITIAl(FALSE) , 

/* PRT LOCATION 
/* FORMAL PAR AM 



/* 
/* 
/* 
/* 
/* 
/* 



NO INTERMEDIATE FILE * 

IN CASE STATEMENT */ 

IN WHITE STATEMENT */ 

IN READ STATEMENT */ 



GETS NEW RECORD */ 
DISPOSES OF RECORD */ 

ASSIGNED */ 

IS VARIABLE TYPE */ 



/* READING ACTUAL PARAMETERS */ 



to 



217 

218 

219 

220 

211 

222 

223 

224 

225 

226 

227 

228 

22 

230 

231 

232 

233 

234 

235 

236 

237 

23d 

239 

24? 

241 

242 

243 

244 

245 

246 

247 

24 f-. 

249 

252 

2'Vl 

252 



*/ 



PRESENT . BYTF, /'- IDENTIFIER IS IN SYMBOL TABLE 

NOUOOK BYTE, /.'* CONTROLS CALLS TO SCANNER */ 

SIQN$FLAG BYTE, /.* SET WHEN SIGN PRECEDES ID *•/ 

/'-GLOBAL VARIABLES USED EY THE SCANNER */ 



•v 



TOKEN 
HASHCODE 
NEXTCHAR 
CONT 



BYTE, 
BYTE, 
BYTE. 
BYTE, 



/* 

/if 
'ft? 



ACCUM(IDENTSIZE) 
TEMPCKAR1 BYT", /■■ 



TYPE OF TOKEN JUST SCANNED */ 
HASH UlUE OF CURRENT TOKFN */ 
CURRENT CHARACTER FROM GET CHAR */ 
INDICATES FULL ACCUM— STILL MOPE */ 
BYTE, /* HOLDS CURRENT TOKEN */ 
HOLDS PREVIOUSLY SCANNFD TOKEN */ 



/* GLOBAL VARIABLES USFD IN SYMBOL TABLE OPERATIONS *./ 



BASE ADDR, /* 

HASHTABIE(HASHTPLSIZF) 
SBTBLTOP ADDR, /* 

SETBL ADDR, /* 

PTR BASED BASK .BYTF, /* 
APTRADDF ADDR, /* 

ADDRPTR BASED APTRADDR A 

PYTEPTft BASET APTRAEDR B 
PRINTNAKE ft DDR, /* 

SYMHASH IYTK, /* 

LAST$SBTBL$ID ADDR, /* 
PARAMNUMLOC ADDR, /* 

SBTBlSCOPE ADDR? /* 



/* 

si: ■.;. if if ;;-. if if ./. i,i if if if. if :;< ;;: if if if if ^ifif if if if if if if if if if if if i r if if if if if if if if if if if if if -tf if if if if if if if if if if if jjt 
* * 

'■■ BUILT-IN SYMBOL TABLE * 

'? & 

if if if :; if if J f if if if if if if >i- if if if if :\ if if if i r if if if *; if # if if if if if if if if if >;. if if if if ;Jc >; if j> if % if if if t,* # if ■# % if if # 



BASE LOCATION OF ENTRY ■ */ 

ADDR, /* HASHTABLE ARRAY */ 
HIGHEST LOCATION OF SYMBOL TABLE 
CURRENT TOP OF SYMBOL TABLE */ 
FIRST MTE OF ENTRY */ 
UTILITY VARIABLF TO ACCFSS SBTBL */ 
DDR, /* CURRENT 2 BYTES POINTED AT */ 
YTE, /* CURRENT BYTE POINTED AT 
SET PRIOR TO LOOKUP OR FNTER */ 
HASH VALUE OF AN IDENTIFIER */ 
HOLD PREVIOUS BASE LOCATION */ 
STOi.FS POINTER TO PAhAM LISTING 
BASE OF LAST ENTRY IN PREVIOUS 



*/ 



*/ 



I */ 
BLOCK 






253: 

254: 

25r.: 

2 56: 

25?; 

25b: 

259: 

260: 

261 

262, 

2 63: 

261 

265: 

266: 

26? 

269 

269: 

270: 

271 

272 

273 

2?4 

275: 

276. 

?.?? 

278: 

279 : 

280 

281: 

2P2: 

283: 

264 

285- 

286 

287: 

288 



*/ 



DECLARE BUILT$INiTBL DATA (0,0,0,0 
0,0,01K,06H,4.AH,36,4, ' ;i\ 'E', 
0,0,01H,14H,52H,30,4, 'C'.'H', 
0,0,eiK,lFH,5AH,0,?,'B', '(.)',' 
0,0,01H,2AH,S2H,69,4, 'T','E', 
0,0,01H,36H,0EH,16,5, 'I ', 'N', 
0,0,01H,43H,1EH,113,6,'O', 'U' 
, , 01 H , 4FH , f"DH , e6 , 3 , ' A ' , ' B ' , 
0,0,01H,5CH,0DH,118,-3, '"S ■ , '6' 
0,0,01H,6AH,0DH,106,3, 'S', '.< ' 
, , <?1H,78H , 0DH , 101 , 3 , 'C ' , '0 ' 
0,0,01H,86H,0DH,57,6, 'A ','R\ 
0,0,01H,94H t dDH,109,3, '£'/■'(' 
0,0,01H,0A5H,0DH,26,2, 'L\ N' 
0,0,01H,0B.3H,0DH,?4,4,'S', 'Q" 
0,0,01K,0C0H,0DH,b7,3, '()', 'D' 
0,0,01H,0CFH,0DH,46,4, 'E', '0' 
0,0,01H,0DDK,0DH,9^,3, 'E', '0' 
0,0,01R,0ECn,0J}H,12,5, 'T', 'ft' 
0,0,011i,0FAH,0DH,8,5, 'h','0', 
66H,01H,02H,0AH .0DH.101 ,3,"0' 
0,0,02H,1AH,0DH,93,3, 'c' ,'¥.", 
0DDM , 01H , 02H ,28H , KDH , 46 .4 , T> ' 
0,0.021' f 36H , 0Drf , 43 , 4 , ' P , ' R ' , 
r 0,02H,4 5H,0CH,121,3, 'P'.'U' 
. , 02H , 54H , 0C H , 96 , 3 , ' S ' , ' E ' , 
, , 02H , 61 H - aC H , 03 , 5 , ' R " , ' K ' , 
,0 ,02H ,6KH, 0CJi , 34 , 7 , 'rt ' , ' E ' , 
, ,0211 , 7 DH , 0C H , 29', 4 , ' P ' , ' * ' . 
?8H,01H,02H,8EH,0CH,106,3, 'N 
0,0,02H,9CR,0CH,23,?,'DVl '« 
e,P.02K,0A6K,09H,o4,4, 'T', 'ft' 
0,0,02F,0£8H,09H,10?,5, 'F', 'A 



,42H,14,7,'I','N', 'T'.'Ef/G'.'E'.'R', 

'A'.'L', 

'A', 'ft', 

O'.'L'.'E'.'A'.'N', 

'X','T', 
'P\'U','T\ 

/T','P','U','T', 
'S ',0,13H,1,13H, 
, 'R',1,13H,1,13H, 
i 'N',2,3H,1,13K, 
, '? ' ,3,311, 1.13H, 
'■' ', 'T', 'A', 'N',4,3H,1,13H, 
, ' P ' , 5 , 3H , 1 , 1 3H , 
, ifl,l,13H, 
, 'ft', 'T',?,3H,1,13H, 
, 'D',8,5H,1H,1H, 
, 'I/, 'N',9,5H,1,06H, 
, "F',10,5H,1,06H, 
,'U','n','C',11,1H,1,3H, 
'U', 'N', 'D',12,1H,1,3H, 
,'R','D',13,1H,1,2H, 
■"'R',14,2H,1,1F, 
, 'U' ,'C', 'C',lb,0F3H,l,0F3H, 
E', 'D',16,0F3H,1,0F3H, 
, 'T',1?,10H,06H, 
'T',18,10H,26H\ 
'S', 'E% 'T',19,10H,06H, 
'W','R', 'I ','T','E',20,10H,06H, 
'C '■, 'E',21,10H,06H, 
, 't','W",22,0FFH, 
'S ', 'P', 'O','S','E',23,0FFH, 
,'!!', 'E', 0,0,^,0, 
','L','S','E',0,0,1,0, 






269 
296 
291 
292 
293 
294 
295 
296 
29? 
293 
299 
300 
'301 
302 
303 
304 
36-5 
306 
307 

308 
309 
310 
311 
312 
313 
314 
315 
316 
31? 
318 
319 
320 
321 
322 
323 
324 



0,H,02H,0C7H,0Cfi,28,4, 'R','E', ' A ' , 'D ' , 24 , 0FFH , 

2 t 0,f2H,0D?H,0GH. 54 |6 f 'P.', 'E ' , ' A ' , 'D' , 'L ' , 'N',25,0FFH, _• __ 

P,0,02H,0 E4K.0CH.il, 5, 'W ' , 'R ' , ' I ' , 'T ' , 'E',26,0FFH, 

t 0,02II,0F3H,0CH,37,7,'W'.'ft','l',"f ','E' t 'L','N',2?,0FFH t 

0,0,03H,01H,0CK,40,4,'sVE','E','K',28 f 2,06H,01H, 

0,0,03H,11H,11H.21,7, 'F'.'C', 'H', 'W ' , 'A ' , 'R ' , 'D\ 

0,0,03F,20H,llH,fc*9,«,'EVxVf VeVr'.'nVaVL', 
0,0.P3H.2EIi,llH,62,ll,'l','N','T','E','fi', 'A'.'C, 'T ' ,'l ', 'V ', 'E' ) J 

/* 

* ;;•• •:.■■ # * # y,c £ >js * * * # *;-, >;: £ ;;< * * $ >;. ; ; ; ;;< $ # * £ s ;. jj: £ # * •;; £ y,< # y,.- # # <: <: * jjt >^ * # * * >^ * * ^« ^ « j{t s;: y^ s|: * >[« 

* LALR(l) PARSE TABLES * 

* AND VARIABLES * 

* # 

;(< * * * >;< y,t # y.c $ y.t £ >;e * ; ;c >;s >;< >;: * y.s # * ;;; # fc jjc :;: y.: >;< y,e >;< * >;t £ :J< <: ^: * « >Jc 5^ :;: j|: if s|; :',t $ jj: if $ fc * jjc $ $ :Jt >^ y,c £ £ y,: 

*/ 



DECLARE MAXRNO LITEPALLY T65',/* M«X READ COUNT */ 
MAXINO LITERALLY '242 ' , /* MAX LOOK COUNT */ 

269',/* MAX PUSH COUNT */ 
484',/* MAX STATE COUNT */ 
1',/* START STATE #/ 
'25' ,/* EOF */ 



MAXPNO LITERALLY 
MAXSNO LITERALLY 
STARTS "LITERALLY 
EO^C L1TE1 ALLY 



NUMEERC LITERALLY '54',/* NUMBER */ 
STRINGC LITERALLY '55',/* STRING */ 
IDENTC LITERALLY '58 'f/* IDENTIFIER 



DECLARE 
,59 
,3, 

,58 
,2V 



READ1 DATA (0,53, 56, 5?, 25, 25, 25, 13, 15, 34, 56, 5?, 58, 58, 58, 9, 14, 9, 58 
,56,58,58,15,58,4,1? ,54,55,58,3,4,6, 10,33,37,42 ,49,50,54,55,58,22 
4,5,10,31,32,54,55,56,3,4,10,54,55,58,58,3,5,31 ,32,54,55,56,22,58 
,58, 22, be., 5 ,20, 29, 35, 38, 41 ,43 ,47,51 , 54 ,58 ,58 ,54 ,33 ,37 ,42 ,50 ,35,58 
,56, 53, 56 ,20, 29, 35, 36, 4 1,43, 4?, 51, 58, 40, 44,^4, 56, 57, 54, 58, 7, 11, 26 
,30, 56, 1,1, 1,14. 43, 3, 9, 17, 3, 14, IS, 1,5, 6, 16, 1,3, 5, 6, 9 ,36, 36, 39, 22 



to 



325: 
326: 
32?? 
328: 
329: 
330: 
331 : 
332: 
333: 
334 : 
335: 
336: 
337: 

33B: 
339: 
340: 
34 1 : 
342: 
343: 
344 : 
345: 
346 : 
34V: 
346; 
349: 
350: 
351: 
352: 
353: 
354: 
jjd : 



359: 
36*: 



, IP, P, 17, 14. 14 , 2d, p,1 ,3,9,23,9,46,22,22,3,12,16,14 ,15,9,9,8,12,16,9 
,12, 24 .,48, 9, 9, 8, 12, 12, 9, 12, 14, 12, 14, 12, 3, 9 ,8,12, 8,12, 18, 45 ,58, 12, 14 
,12, 16, 12, 19, 2, 4, 10, 13, 15, 21, 23, 4, 10, 23, 9, 12, 14, 9, 26, 8, 9, 8,9,0,0,3,0 
)J 

DECLARE L00K1 DATM ,13 , 15,0 ,35, 58, 0, 16 ,0,58 , 0,53 ,0 ,58 ,0,35,58 ,0,9,28,46 
,0,9,26,0,8,9,23,0,15,0,8,9,26,0,6,9,26,0,9,28,36,46,0,36,0,9,26,0 
, 35, 58 , 0, 17, 0, 1, 5, 6, 1 8, 0,1 4, 0/0,0, 0,49, 0,44,?, 34, 0,43, 0,7, 11, 26, 27 
,30,0,7,11,26,27,30.0,7,11,26,27,30,0,9,46,0,36,0,1,3,5,6,0,12,19,0 
,12,19, 0,9, 28, 36, 46, 0,86, 0,9, 2.8, 46, 0,17, 0,14, 0,14, ,0,9, 0,9, 28, 0,43,0 

,9,28,0,12,0,9,0,9,0,12,0,3,0,45,0,45,0,45,58,0,45,0,45,58,0,2,4,10 
,13,15,21,23,0,4,10,23,0); 

DECLARE APPITfl DAT A (0,0, 0,0, 0,32 ,0,170, 171, 174, 175, 0,0 ,^,31, 74, 79, 0,0,0 
,23,0,0,28,29,39,51,54,61,63,150,0,96,0,15,28,29,37,39,47,43,51,52 
, 5-i, 59, 60 ,61, 62, ^3,150,0,0, 0,24, 0,0, 47, 48, 60, 62, 0,15, 37, 59, 0,18, 44 
,4 5,46,69,123,0,0,0,81,0,0,0,37,0,0,0,14,0,0,26,0,0,5,36,69,0,26,0 
,63,0,0,29,0,0,39,0,0,0,0,0,0,0,25,0,0,0,0,116,0,175,0,1,0,0,6,0,22 
,0,0, 67, 85, 0,0,1,0,0,4> ,0,0,27,120,122,141,0,71,72,88,69,90,120,121 
,0,71, 0,72, 86, 89, 90, 12 1,0, 121, 0,0, 0,0, 27, 36, 71, 72, 77, 88, 89, 90, 101 
, 1 09 , 1 20 , 1 21 , 1 22 , 1 4 1 , ,0 , , '. 1 , 1 6 , 1 7 , 40 , 41 , 49 , 50 , 55 , 56 , 57 , 58 , 70 ,8 6 , 9 1 
,107,106,0,0,97,16W,0,' 81,0,0,65,183,0,13,0,0,0,0,40,0,0,106,0,109 
,0,0,0,42,0,0,0,0,26,0,26,150,0,0,0,0,112,128,0,0,0,0,0,0,0,108,0,0 

,0,a,0); 

DECLAhE KEAD2(219) ATDR INITIAL 

(0,63, 64, 66, 270, 272, 271, 415, 416, 67 ,85, 87, 377, 277, 311 
,366, 46, 273, 378, 375, 355, 31 2, 334 ,4 17, 310, 296, 297, 290, 294, 295, 10, 296 
, 16, 297, 66, 73, 76, 81, 2?.2, 290, 294, 203, 62, 11, 296, 168, 297, 440, 65, 439, 441 
,40 9,10,296,297,290,291,203,478,11,186,440,65,439,441,40 9,59,377,35 4 
, 205 , 60 ,303 , 15 , 5~ , 64 , 70 ,74 , 469 , 20 1 ,474 , 462 , 283 , 204 ,289 ,283 , 66 ,73 ,76 

, 202, 69, 334, 276, 38 1,367, 374, 58, fc4, 70, 74, 469, 201, 474, 432, 204, 75, 76, 68 
,64, 66, 291, 29s, 423, 424, 427, 425 ,426, 409, 2, 3, 4, 333, 201, 7, 365, 54, 8, 44 
,52, 5, 17, 406, 56, 5, 13, 17, 406, 189, 199, 2O0, 391, 462, 472, 436, 55, 49, 50, 324 
,34 0,192, 9, 193, 4 52, 193, 60, 197 ,198, 187, 4 1,407, 339, 5 1,379, 360, 21, '32 
,444, 260, 31, 463, 464, 35o,359, 306, 35, 40, 195, 39, 467, 30, 45, 33, 12, 190, 456 



-J 



361 

362 

363 

364 

365 

366 

36? 

368 

369 

370 

371 

372 

373 

374 

375 

376 

37? 

378 

379 

380 

381 

6bZ 

383 

384 

3 8 5 

3P6 

36? 

388 

389 

390 

391 

392 

393 

394 

39b 

396 



,42,435,42,57,79,364,34,47,37,53,38,472,186,431,432,196,414,420,433 
,431,432,433,191 ,36,48,194,461,19,22,20,22,0,0,0,0); 

DECLARE L00K2(167) ADDH INITIAL 

(^,6, 0,4 18, 14, 14, 243, 244, 16, 23, 285, 24, 29.9, 25, 350, 26, 26 
,245, 246, 246, 246, 27, 247, 247, 28, 248, 248, 248, 29, 43, 4 19, 249, 249, 249,61 
,250, 250, 250, 66, 251, 2 51, 25 1,251 ,71 ,252 ,72 ,253 , 253,?? ,82 ,82 ,254 ,295 
, 31 0,409, 409, 4 09, 4 09, 457, 334, 31 0,88, 89, 90, 92, 255, 93, 256, 94, 25?, 258 
, 95, 98, 98, 96*98, 96, 428, 99, 99, 99, 99, 99, 429, 100, 100, 100,1 0<3, 100, 430 
,259, 259, 109, 392, 3e4, 116, 116, 11 6, 116, 434, 470, 170, 117, 471, 471, 116, 260 
,260,260,260,120,261,121 ,262,262,262,122,130,44 9,131,458,132,459,135 
,325, 263, 263, 141, 357, 146, 264, 264, 150, 15?, 446, 158, 336, 159, 335, 163,373 
,164, 455, 165 ,265,170,266, 171, 171, 26? ,174, 268, 170, 175, 269, 177, 177,177 
,177, 177,177, 177,412, 178, 178, 176, 413); 



DECLARE APPLY2(248) 



,262 


451 


261 


,105 


,11.-1 


,293 


,292 


,96, 


,166 


301 


,300 


,114 


,139, 


140, 


307 


,156 


,326 


1 f"A 


,408 


,333 


;<4 5 


318 


306 


,212 


IPS 


184 


369 


,ocd 


,386 


466 


,453 


,387 


,222 


221 


,125 


,124 


,115, 


115, 


115 


,115 


,126 


127 


481 


,480 


,421, 


168 


167 


,43? 


,399, 


230 


162 


,4 64 


,112 


169 


153 


,47? 



ADDR INITIAL 

0,0, 236, 149, 136, 275, 274, 103, 362, 
,209,119,287,286,145,344,344,344 
96,96,96,96,96,96,96,96,96,96,96 
, 353, 33 C\34?., 323, 302,322,322,346 
,305,314,313,315,173,321 ,320,319 
, 14 4 ,332 ,."526 ,327 , 233, 232 , 123 , 338 
, 179 , 352 ,351, 172 , 1 06 , 229 , 155 , 154 
,234, 371, 372, 370,162, 23?, 236, 113 
, 36?, 46e ,473, 475, 2 17, 392, 384, 390 
,223,306,394,115,220,115,115,115 
,218,405,143,129,224,410,224,411 
,128,480,225,181,214,215,213,183 
,151 ,231, 448, 447, 401, 383, 4 02, 136 
, 453, 22B, 228, 142,400, 101, 176, 206 
,476,397,216,91 ,108)? 



104,360,102, 
,288,309,344 
,96,96,96,96 
,304,348,332 
,316,134,133 
,337,161 ,343 
,361,363,239 
,148,147,278 
,365,222,222 
,115,115,115 
,226,460,450 
,242,241 ,160 
, 137,395,235 
,207,206,396 



210,152 

,344,344 

,97,211 

,376,362 

,227,329 

,342,317 

,240,110 

,454,3b9 

,222,222 

,219,116 

, 404 , 479 

,438,422 

,443,442 

,107,398 



DFCT.AhE INDEX! (465) ADD.-. INITIAL 

< , 1 ,4 , 5 , 6 , 22 ,7 , 9 , 9 , 1 3 , 1 4 , 43 , 43 ,43 , 69 , 52 , 43 , 43, 24 , 1 5 
, 16 , 1 7 ,9 , 83 , 71 , 68 , 89 , 73 , 25 , 25 , 1 6 , -H4 , 1 3 , 19 , 20 , 2 1 , 22 , 52 , 1 16 , 25 , 43 , 4^ 
,43,23,24,24,24,30,30,43,43,25,30,42,25,43,43,43,43,52,30,25,30,25 



to 

oo 



39?: 

398 : 

399: 

400: 

401: 

40?: 

403: 

404: 

405: 

406: 

407: 

40b: 

409: 

410: 

411: 

4' 2: 

4.13: 

414: 

415r 

416; 

41?: 

418: 

419: 

430: 

421: 

422: 

423 : 

424 : 

425: 

426: 

427: 

428: 

429: 

430: 

431: 

432 : 



,58,59,66,67 

,93,94,95,9b 

,119,120,121 

,73,24,137,1 

,154, 155, ' o, 

,172,174,175 

,192.188,188 

,18,22,25,29 

,84,90.93,95 

,137,139,141 

,341,403,403 

,279,279,279 

,23,23,23,23 

,73,73,74,74 

,92,92,94,94 

,110,110,111 

,122,122,122 

, 140, 148, 146 

,161,161,161 

,19c, 199,199 

,203,203,203 
,216,219,220 
,236,237,238 



PE'CLAHE INDKX2 D 

,2,10,5,5,1, 

,9,6,12,5,12 

Q Q 1 1 1 2 

,10.1,1,1,1, 

,1,2,1,1,1,7 
,2,2,2 ,3,4 ,3 
,4,2,2,2,2,3 
,72,77,82,92 
,3,4,5,0,2,0 
,0,0,0,2,2,0 
,1,3, 0,0, 2,0 



68, )9, 43, 95, 95, 70, 84, 71, 72, 73, 83, o4, 43, 65, e&, 91, 92, 67 

95 4? 104. 105, 106, 107, 109, 59, 111, 111, 111, 116, 117-,U8-_._, 
;43: i 3;?3,i22,i24,i41,i25,12?,l23,132,12£,l28,136,?3,95 

38. 13Q, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 15^ 
156, 157, 159, 160, 107, 161, 162, 163, 25, 165, 166, 163, 1?0, 171 
,175 59 176 178 180,181,188,162,163,185,187,188, 88,190 
,194,196,203,206,207,43,209,59,211,213,1,4,7,9,11,13,15 

31 35.39.4'' .46,49,52,54,59,6', ,62 ,63 ,64 ,66,68 ,70,72, 7d 
; 100, 103, lis; 111, 113, h?,119, 121, 123, 125, 128, 130, 133 f l3n. 
143 1/5, 147, 150, 152, 155, 163, 331, 445, 331, 403, 465 ,-341, 341 

'403 331, 2-^8, 284, 349, 356, 403, 403, 403, 403, 403, 465, 279, 279 
ll 1,2 3,3.4,5,7,12,12,13,13,14,18,18,19,19,20,22,23 

32,34, 34, 51, 51. 52,52,53, n5, 56 ,56 , 56 ,61 , 61, 61, 65, 72, 72 
,74, ^4, 76, 77,77,78, 80, 61, 32, 82, 62, 84 ,84, 85,85, 8?, 6^,88 
.96, 97, 97 !99, 99, 100, 102, 103, 104, 105, 106, 106, 107, 107, 1«8 
,111,112,112,113,113,113,113,115,117,117,119,120,120,122 

124,124,125,128,128,129,129,131,132,134,135,135,135,140 

150 155,158, 159 ,159, 159, 159, 159, 159, 159, 159, 159, 15*. Ib0 
161,176,177,177,178,178,195,195,195,195,195,195,190,196 

199. 199, 199,20?, 200, 200 ,202, 202, 202, 203, 203, 203, 203, 203 

206 206 206, 209, 209, 210,210, I'll, 211, 213, 214, 216,216, ^18 

,220, 220, 222, 223, 224, 224, 225, 225, 227, 230, 231, 232, 232, 233 

,239,239,24 0,241,242,244,245,246,247); 

AT ^0,3, 1,1, 1,1, 2, 4, 4, 1,1, 9, 9, 9, 2, 6, 9, 9, 1,1, 1,1, 4, 1,1,1 
3,1,1,1,1,1,6,1,5,9,9,9,1,1,1,1,12,12,9,9,5,12,1,5,9,9 9 
,5, 1,7, 1,1, 1,1, 9, 9, 9, 1,1, 1,1,10,1,1,9,4,2.x, 1,1, 1,1, 9, 9 
,2,7,5,5,5,1,1,1,1,1,1,9,9,10,2,1,1,2,1,4,4,3,3,1,10,9 
1,1, ,1,1,1,1,1,1,1,2,2,1,1,10,1.2,1,1,2,1,1,2,5,1,2,2,1 

, 2, 2, 1,1, 1,1,2.2,1, 1,2, 2, 2, 1,2, 2, 7, 3, 1,2, 9, 2, 7, 2,2,3,3, 2 
,4, 2, 4, 4, 5, 2, 3, 3, 2, 5, 2, 1,1, 1,2, 2, ?,2, 6, 6, 6, 3, 2, 5, 3, 3, o,2 
,2, 3, 2, 2, 2, 2, 2, 2, 2, 3, 2, 3, 6, 4, 14, 16, 26, 27, 26, 29, 61, 63. 71 
%,UM., 109, 120, 121, 122, 111, 150,165, 170, 171, 174, 175,3 
,0,5,0,2,0,2,0,0,2,0,2,2,0,0,1,0,1,0,0,0,0,0,2.0.2,2,0,0 

>2, 0.1, 0,0, 0,0, 5, 0,2, 0,0, 2, 0,2, 0,0, 2, 2, 0,0, 2, 0,4, 3, 0,2 
,2,0,2,1,0,2,0,2,2,0,2,0,0,1,2,1,1,1,1 ,0,1,4,1,0,2,0,1,1 






433: 

434; 

435: 

436: 

437: 

438: 

439: 

442: 

441 ; 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

45S 

459 

4 60 

461 

462 

463 

4 "4 

465 
4 66 
467 

466 



DCL 



,1,0,. 2,2,(3 ,2, 3, 6, 1,0, 0,0, -3 ,1,3, 0,1, 3, 2, 0,1 ,0,0, 0,0,0,0, 0,0, 0,0, 2, 0,1 
,3,2,0,P,2,0,2,0,l,l,l,0,0,0,0,2,0,0,t>,0,0,0,l,2,?,0,0,0,3,2,0,l,0,f. 
, 0,0, 2, 2, 0„0, 0,2, 0,2, 1.2, 0,2, 0,3, 0,0, 2, 4, 2, 2, 0,2, 0,1, 1,3, 0,0, 2, 0,3,0 
,5, 2, 2, 0,(4,0,3,0, 0,0); 






; if if :f >J; :;: i? if :f if >;; ;;: ^ i,. s|- >|( if if if if if if if if >|; if if if if if if if if if # if if if * if if »Jt if if if if $; if if $ if if if if $ if if 



SFCTION 2 

SYSTEM DEPENDENT ROUTINES AND VAfilaBIES 

THE FOLLOWING HOUTINES ARE USED BY THE COMPILER 
TO ACCESS DISK FILES AND THE CONSOLE. THESE 
HOUTINES ASSUME THE USE OF THE CP/M OPFftATlNG 
SYSTEM. 

THE FCB'S ARF USED BY THE SYSTEM TO MAINTAIN 
INFORMATION ON OPEN FILES. THEY ARE ONLY USED BY 
PROCEDURES IN THIS SECTION. THE BUFFERS AND POINTERS 
TO THE BUFFERS ARE USED BY THE REMAINDER OF THE 
PROG-RAM, BUT THEIR SIZE MAYBE VARIED TO SUIT THE DISK 
OPERATING SYSTEM BEING USED. 






* 
* 



if 

if ififizi 
if/ 



/*■■ NOTE: 



..*:<** i 



if if >f z'f if i|; :;: $ if if if if if if i 



V 
if if if if if if if if if if if if if if if sji >;; jjc if # if if if 



CP/t" PROVIDES 
PROCitAM USE 



:CH AS FCB APE* AND 80H AS A BUFFER FOR 



RFCBADDH ADDR I NITI AL( 5CH) , 

RFCB BASED HFCBADDR(33) BYTE, /* SOURCE FCE */ 

WFCB(33) BYTR /* INTERMEDIATE FILE FCB */ 

INITIAL (0,' ', 'PIN', 0,0, 0,0), 

SFCB.?33) BYTE /* SYMBOL TABLE FILE FCB */ 



*/ 



t-' 
o 



47 0: 

471 

472: 

473: 

474 

47b; 

u76: 

477: 

478 

479: 

480: 

481 

462: 

483: 

484 

465: 

46C 

487; 

438: 

489: 

4S1 

402: 
4 93: 
494 
4 Go 
4 96: 
497: 
499 
499 : 
8#0: 
t>2 1 
502 
5/? 3 
504 



*■/ 



INITIAL (0/ ','SYM',0, 0,0,0), 

SBLOC ADDH I NITI Al(B0H) , 

SOURCEBUFF BASED SBLOC ( SOURCERECS J ZE) BYTE, /* SOURCE BUFFER 
SOURCE? fR BYTE INITIAL (SOURCERECSIZR ) , /' : ' BUFFER INFEX 

CUR$SfiC$REC$SZ BYTE INITIAL (SOURCFKECS IZE ) , 
DISKOUTEUFFf INTHECSIZE) BYTE, 
SYMOUTBUFFd'NTRFCSIZK) BYTE, 

BUFFP'i'R BYTE I M ITI AL{ 255 ) , /* BUFFEii INDEX'*/ 

SYMBUFFPTR BYTE I NITI AL( 255) , /* SBTBL BUFFER INDEX */ 

LINEBUFF(CONBUFFSIZE) BYTE, /'-CONSOLE CUT BUFFER */ 

LINEPTR BYTE INITIAL (0). /* BUFFER INDEX */ 

LINENO . ADDH-T /* CURRENT LINE NUMBER */ 



/ *,- 'I s 'r %■ *1 : # ?'* *!» »!• & & J)t -J 6 >o A : »!* >I* >!t ^e # jj( v j£. st-"*'/ : ^ >!*' ;? J^ # # >!- i*^ ?fc '^ >I< >! ; % v *r *I< >!< *J* »Jc >;* >tt <« >[c )',; & )Jc s> >1? a|s << >Je a£c Jjs $ jfc # ajt ?J: sjr sjc j^s jJ: jJ< ;Je 3*,j / 

/**.* GLOBAL PROCEDURES *.#.*/ 

/ & :.;. A- >% & ;% j',; # j;< & £ <« A- •'<= Af ■'.-% A' At A' At A- A- A' At A- A ! ♦ it A- »l- >!< >!< ♦ < ; A- A* A' A* v A' A- ♦ -o * * A* >\c >\i # A' ••< ^« :{; jje Af. A* At A* At >ls >',< ^<>r Af A,: >|e ;;: # A' / 



M0N1: PROC(F.A); 

DCL F BYTE, 

A A DDR; 

GO TO BDOS; 
END MONi; 



M0N2: PROC (F.A) BYTKJ 

DCL F BYTE, A ADPHJ 

GO TO BDOS! 

END M0N2J 



rCN3':?rf-0C» 

GOTO ECO?; 



/-USED TO RETURN TO THE SYSTEM*/ 



5tfG: 

507; 

508: 

509 : 

51? : 

511 

512 

513; 

514. 

51b; 

516; 

nlV: 

51s; 

519; 

520 

521 

j22 ; 

523; 

024 

525; 

526; 

527 

523: 

52^: 

53fc): 

531 

M<2: 

53.4 : 

534: 

535: 

536: 

53?': 

538: 

539 : 

54?: 



END MCN3J 



MOVF: P»OC (SOURCE, DFSTIN.L); /*MOVF:> FM SOUhCF TO DESTIN FOR L BYTES ••'/ 

DCL (SOURCK, DESTIN) ADDR , /* L < 255 BYTSS-V 

(SCHAH BASRD SOUHCE, DCHAR BASED DESTIN, L) BYTEi 



DO WHILE (L:*L 
DCHAH=SCHAh; 
DVSTIN=DFSTIN 
SOUHCE=SOURCE 



1) <> 255; 



i; 
i; 



fnd move; 



FILL: PROC (A,CHAR,N)J 



END 



DCL A ADDH t {CHA«,N,DEST BASED A) BYTE? 
DO WHILE (N := N -1) <> 2r>5? 
DFST = CHA1<; 

A = A + 1 ; 

end; 
fill; 



/* MOVE CHArt TO A N TIMES */ 



HEAT: PHOCi 

DCL T0GGI.F.13) BYTF; 

TOGGLE = 1; 

CALL MONl(l?,. TOGGLE); 
END HE'AD; 



PKINTCHAi : PiiOC-{CHAU 
DCL CHAR HTTP 

CALL M0N1(2,CHAR) 

END PRINTCHAH; 



541 
54? 
543 
544 
545 
546 
54? 
548 
549 
550 
551 
55.2 
55:5 

554 

555 

556 

557 

55B 

£59 

560: 

.561; 

5K2: 

563: 

564 : 

565: 

566: 

■567: 

56S: 

569: 

570: 

571: 

572: 

573: 

574 : 

fc ?5 • 

576 : 



Pltt'MT.: Pi-. OC (-*"); 

DCL A addr; 
CALL MO;U'S f 'A)» 

f MD print; 



PISKERR: PROCJ 
1)0 ! 

CALL PRINT! . 'DE 
CALL M0N3J 

knd; 

?NB DISKERlU 



*>); 



setup$int$fil:pkoc? 

if nointfile then /.* only make file if this toggle off */ 

return; 
call move( .rfcb, .wfcb.9); 
call monk 19, .wfcb); 
if m0n2(22, .wfcb) = 255 then 

CALL riSKERft; 

CALL M0VE(.RFCB,.SFC8,9)J 
SPCB(32) = 0; 
CALL MONKld, .S-FCE) I 
IF M0N2A22, .SFCB) = 255 THEN 
CALL DISKERhi 
END SFTUPilNTiFILi 

v. : hit$int$file: procj 
if noihtftle then 

return; 
call m0mk26, .di skoutbuff ) j 
if m0n2(21 ,:■;«/ ecb) <> then 

call diskerrj 

CALL rem (26,8011) J /* liESET DMA ADDR */ 
END WKI T$l NT^FILE; 



577: EMIT: P?OC (OBJCODE ) J 

578: DCL OBJCODE BYTE! 

5?9: IF (MJFFPTR -:-=-*- BUFFPTK + 1 ) >= INTRECSIZE THEN 

ftofl: /.* WHITE TO DISK V 

582: CALL 'k'HI T$I NT$FI LE; 

5y3: HJFPPTH = 5 

584: END; 

585: DISKOUTBUFF(BUFFPTR) = OBJCODE; 

5:<6: END EfilT.i 
59V: 

568: GFNFftATI: PhOC (OBJCODE) J 

589: DCL OBJCODE BYTE? 

590: CODES IZE - CODES IZE+1? 

591: CALL EMIT (OBJCODE) ; 

592: END GENFHATEJ 
59* * 

594: GFN$ADDtf: PkOCvA.B-)? 

595: DCL A BYTE, B A DDK; 

w 596: CALL GENERATE ( A ) J 

5^7: • CALL G EKER ATEUOW < E) ) ; 

598: CALL GENERATED IGH ( P )) J 

599: END OEN$JDDF.» 

6/50: 

601: WRIT^SYMiFILE: 'PROC; 

602: IF NOINTFILE THEN 

603: RETURN; 

604: CALL MON1 (26, .S YMOUl'BUPF J I 

685: IF M0N2(21,.SFCB) <> £ THEN 

606: CALL DISK ERR? 

607: CALL MON1 (26.8MH ) i /* RESET DMA ADDR *'/ 

em-, kwd wi:it$syi«$file; 

609: 

filttr EHITiSYM: PROC(OBJCODE) ; 

•oil: DCL OBJCOP" BYTiTJ 

612: IF (SYMBl'FFPTR := SYKBUFFPTh+1 ) >* INTRECSIZE THEN 



OJ 






613 

614 

615 

616 

61? 

61b: 

619: 

620: 

621 : 

622: 

623: 

624: 

625: 

626: 

627: 

62 b : 

6?9: 

630 : 

631 : 

632: 

633 : 

634 : 

635: 

636 : 

63? : 

638: 

639: 

fi-tf* ! 

641: 

642: 

643: 

644: 

646: 

646: 

647: 

64b : 



/'*■ WHITE TO DISK ■'■ / 
DC; 

CALL wkit*sym$file;. 

SYHBbFFPTR = 5 
END? 
SYMOUTBUFF(SYMbUFFPTlO = OBJCODE; 
END EMir^SYMJ 

GENSYMTBL: PROC( OBJCODE ) ', 
D(;L OPJCODF BYTE; 

CALL FMir^SYM(CBJCODE); 
END -GFHSYMT.pl; 

MOVF$SBTBL: PROCJ ■ 

DCL SYMPTB ADDhFSS; 

DCL VALUE BASED SYNPTR BYTE} 

DO SYMPTl- = .MFflOH.Y TO (LftS'i'$SBTBL$ID 

call g*n'symtbl( value) j 
end; 

CALL OENSYMfBL(f); 

CALL GENSYMTBL(J); 

CALL GENSYMTBL(0); 

CALL GENSYMTBL(fl); 

CUt GENSYIiTBL(EOFFILLER); 

CALL GENSYnTEL(EOFFILLLR.<; 

Chii Wkit^sym^file; 

END MOVEfSM'BL; 



CL0SE$INT$ML: Pi'On,* 
/* CLOSES A FILE */ 
IF M0N2(16, .WFCB) - 
CALL DISK ERR; 

IF MCN2(16, .SFCB) - 
CALL DISK'FhR; 
END CLOSF*INT*Fll; 



- i); 



255 THEN 



255 THEN 



65(5: 

Gel 

652/, 

6h3 

654 

6.55 

606 

65V 

65c 

659: 

rt6C; 

661 

6'62 

663; 

6f ; 4 

665: 

666 

66? 

6U"6 : 

669: 

670; 

671 

6?2 

673: 

674 

6 r >5: 

676 : 

677 ; 

6.VH-. 

670 : 

6«v) 

661 

6W2- 

6:'- 3 

634 



OPEN^SR^FILE; PHOC* 

CALL M0i.'E( . 'PAS',HFrRA0Pi-. + 9 f 3}; 

H:FCD(3"2) ,RFCH(12) - '«J 

IF M0N2(15,I'FCB*M>h) = 255 THFN 

do; 

CALL PhlN'P.'NO SOUhCS FI'LS $')■,* 

call hONf ;* : ; 
END; 

FN I. :.PEN$3fiC.$FILE5 



hvnd$skc$file;froc; 

return; 

END RWND$S!<C$FiLB; 



/* CP/M DOES NOT REQUIRE ANY ACTION */ 
/* PR I OH TO Kr.OPENlNG */ 



I FA D-SS HC$ F! LF: Pi.OC V, YTF I 

PCL DCNT PYTF5 

IF (DCNT:---M0N2(2(?,rtFCBADI)i':) ) > FILFEOF THEN 
CALL D^KKHRJ 

RETURN DCNTi 
FNI) R.f«!>$3. ; Kf;$KiLK> 



CHL.F: PiiOCJ- 

CALL PfclNTCH'^. (C : '); 

CALL PR!NTC}fAR{LF)t 
END cvlf; 



PrtlNTI<"C: PROC( VALUE). 

LCI v f A.LUY ADP1-, I PYTE, COUNT BYTE! 

DCL PEC 1(4.) *DI»R I N1T1 Al.( IkSfcHi . lV>« t 10 . 1 ) ; 

DCI. FLA", BY'i-F; 





cee : 




Tl-h'i = FALSE; 




686: 




DO I = TO 35 




687: 




COUNT - 30HJ 




6P6: 




DO WHILE VALUE >- DECK I )| 




669: 




VALUE = VALUE - FKCKl) 




690: 




FLAG= Thl'K; 




691: 




COUNT - COUNT +" 1 ; 




692: 




StfD-i 




693: 




IF FLAG OF (I>= 3) THEN 




691: 




CALL PRINTChARfCOUNT); 




695: 




ELSE 




696: 




CALL PHINTCHAH' ' ')', 




697: 




end; 




69ft: 




RETURN J. 




699: 


F H D 


?t iNTDFCf 




70tf : 








701 : 








702: 


PKlNT4,PR6D:Pli.OC; 


H* 


703: 




CALL Phl.ir(. ' Pi-.OD - y)r 


o> 


704: 




CALL PR I N T <. 1: EC ( P K u iiC T I 1- )J 




VtcS: 




CALL CnLFJ 




706: 


klH'J 


print$prod; 




707: 








7P.5: 








709: 


PhIMT$T0KF\ l :P.;OC; 




710: 




C.UL PRINT f. ' TOKEN ■*'$'■)', 




.711: 




CALL PPHTiDFC(rCKF''i); 




712: 




CALL crlf; 




7x3: 


end 


print$tok?n; 




714: 








71:.: 








716: 


CLi:AH$LNiBljFF:?HOC; 




7 1 7 ; 




CALL FILL( .LlNEBUKF,' ' ,ZQHM. 




71b: 


LND 


CLF,AH$L!>;iFlFV: 




719: 








720 : 







-J 



721 : IIST.LINF: PROC (LFNGTH) J 

722; DCL ( LFINGTH , I ) FUF; 

72.6: CALL Ph JNTiPKC ( I.INI r.NO ) ; 

714: CALL Pi,iNT$CH4R( ' *).;•' 

?26-.: DO 1 = ft TO LENGTH; 

726: CALL Plf INT CHAi(( LINK «UFF ( I ) ) J 

727: FN'); 

72iH: CALL CRLF; 

729: a'NU LI STL INSJ 

73C- 

731 : 

732 : / ?;::: - :;;:; -**' : ^ 

733: /**'**** *>:■ #*** **«*- ****.#>•:*# ; ;-=:=*^>:-;j= $«-#«*#«*>«$$#*$*#3(i*tt^# ***•****#* v #*<.-*««#/ 

734: /**=? SCANNER PROCEDURES ***/ 

/:;. ».; A >;. >,c *;***.::;;: * : ; : ; ; : <. ; ; ; ; j. ..;• .;...; ..; ; ^j: £ * - : s ; ; >; ; s::********!:.!!:****^^^^^^,^^;;;^^^^^^^^-.^^^^^^,;. . 
/ « ;,; * * * ;;.- >; : ; ; : * ■* ; ;,- ; ; ; * * ,; : >; . > ;t * - # ,- : ,; c .;, i; , ,.- ; ; ; >< , ;i ^ ... s ; c ,. . ... ,.. ..< ,., ,.. ... .., ,., ,.. y _. % ^ ff f; %%,%%#%£ %?„;.%#$ *. if if ..< ,„ ^ ^ /f ,. f ^ ^ , 



735 
726 

73? 
733: 
£ 73 f J: CFTCHAR: ?ROC MTE.i 

740: DCL ADDEOF DATA('EOP', EOLCH A'F , LP) i /* ADD TO FND IF LEFT OFF */ 



741 

742: 

743: NXT?SRC$CHA1> : PiOC BYTFJ 

744: RETURN SOUKC EBUFF( SOUHCEPTK ) J 

74 5: FND NXTiSi<C$ CHART 

746: 

747: 

748: CHECKPILF: PROC BYTE; 

749: DO FO! EV'FKJ 

75 '''- IF (SOURrBPTH:=SOUI<CEPTR*l)>=CUR$SitC$REC$SZ THEN 

751: DO,' ' 

Vb2: SOURCtPTR^:; 

? 53: • IF !(FAI)$Sf:C$FIL£-FILEFOF THEN 

754: RETURN TRUE; 

7!- 5: END; 

''$$'- IV (NEXTCHAt. : = NXT$SRC$CHAR)OLF THEN 



to 
CO 



75? 
75b 
7 59 
760 
761 
7 62 
763 
761 
765 
766 
767 
76cs 
769 
770 
■771 
772 
773 
774 
775 
776 
777 
7?d 
779 
7cj0 
761 
7&2 
?S3 
764 
785 
7c6 
7fa7 
• 7 88 
7b J 
790 
791 
7*2 



RETURN pals?; 
end; 
end check file? 



IF CHFCKFILE OR ;NL»TCHAR = EOFFILLER) THFN 

DO? /* EOF REACHED */ 

CALL MOVFf .ADDE0F,SbL0C,5); 
SOUkCEPTR <= V>; 
NEXTUHAP.^NXTiSi-C^CHAR', 
END;' 
LlNSU-UFF(LIf<E?Tri:=LlNEPTH + 1) = NEXTCHAR; 

if nfxtch»h = volchar thfn 
do; 

LINF.NO - LlNKMO + 15 
IF LISTSOUJ-.CE ' THFN 

CALL LISTLINRfLINEPTfi-U; 
UN KPT ft = 0| 
CPU CLEAr.'LNBUFTt 

end; 

IF MFXTCHAR = TA *i THEN 

NFXTGHAK = ' ' ', 
RETbRN KEXTCHAR; 

emd getchar; 



/-OUTPUT LINE*/ 



getnoplank: proc 
do *hh.e((getchar 
fmd; 

END C'ETiiO BLANK; 



' ') OR (NEXTCHAR = EOFFILLER)) 



TITLE: P;fOC; 

CALL CRLFS 

CALL PFiM'T(. 'NPS-PA5CAL VERS 0.0$')? 



/* COflPILER VERSION */ 



?y:5: call cblf; 

794: FNP TITLE; 
79 ft: 
yyg ; 

797: PalNT$ERROR:PROC; 

798: CALL PhINTDFCI Eh '••OnCoUNT) J 

799: CALL PI.INTCHAh( ' '); 

600: CALL PRI NT (. 'ERROR ( S ) DETECTED* ' ) » 

601: CALL CHLFi 

£02: END PRINT$ERROR; 

SG3 : 

804: 

806: FRKOl.: PfiOC( EiihCODE} ? 

806: DCL ERRCODE ADDR, 

807: I BYTE; 

80S: FRRORCGUNT=Ei'.hOhCOUNT+i;' 

80P: CALL Phi NT I. '***$*)•} 

610: C/Ll PFINT$DFC(UNF?M); 

g 811: CALL PRP'T(.' ERROR $')? 

«> 812: CALL PRlNTOSfARl ' '); 

&V1; CALL PMNTCFAR(HIGH(FRRCODE)); 

814: CALL PR1 NTCiiAR ( J..)W ( ERRCODE ) ); 

al-5': CALL Pit'MT{. ' IV-AR *'); 

alb: CALL PHNTCHAR.' ' ' )i 

817: DO I = 1 TO AUUNJ 

818: CALL PR INTUHA -t( ACCUM( I ) ) ; 

839: END,* 

830: CALL CRLF; 

821: CALL PR I NT (.'AT FHROh $')? 

822: CALL ?HNTC!l.».h( ' '); 

625: CALL PRINT$T0KF.N5 

824: CALL PRINT(.'AT KRRGS ■?,'); 

823": CALL PMNTCJ:fils( ' '); 

£26; CALL PHlNT>PROD? 

627: IF TOKKN=EOE.C TifEN 

626: DO; 



O 



330: 

eai: 

632 : 
833: 
834 : 
8.65: 
836: 
837: 
83b : 
«39: 
840: 
£41 : 
842: 
84:*: 
844: 
8-3 5: 
<;46: 
84?: 
B4r : 
849: 
P5i>: 
«51 : 
852: 
813: 
854: 
855: 
856 : 
fib?: 
858: 
859: 
660': 
861 : 
862 : 
863 : 
864: 



CALL PPINT$EJ i »OR; 
CALL M0N3; 

end; 

END F;i,l or; 



I NIT$SG fNNFi': PhOC J 
DCL COUNT BYTE? 

CALL open$skc$filf.; 

LINFNO.LINEPTR - 0| 
CALL CJ.EAftiLN$RUFFf 
SOUhCFPTii * 128; 
CALL GETNOPLANK; 
DO WHILE NEXTCHAK - '$'5 
CALL GET$NO*BLANK» 

IF (COUNT := (NEXTCHAR AND 5FH) - 'A') <•= 4 THEN 
DO CASS count; 

USTSOUf.Ch = tuue; 
LISTPHOD = TRUE; 
NCIMTEILE = THUE5 

tisTTOKLN i true; 

DEBUGLN = ThUE; 
emd; /•= OF CASE, */ 

call cftnoblank; 
end; 
end init^scan^er; 



f i'fi £ # aj. >|i s); i',> # i\i Jj: & >'fi # >;< ;',< aj( /,; :I; :;. i\: -J,t 
/ s|s # >;. i\i y t < SJC j|; )J. )Jc i t t sj; ;J; ;;c # )J; ;',. ;J; # ;J; ;|: ;;,• 



scan iii eh: pace;. 



»;• >':■ >;• -:••■:■■ ••:■■ ■:■ •-:• * •■:■ -.',• ■■,• =:< * * * »'.- * * * *- # * ;;< * * * * * « * ;je * # # # * * # * * * # * * * $ * <: / 

v v ' 'i >'f ■'.• >'t ~'fi >'.• '•'.• ■'.< >'.' >'{ >',• ~'t v -t -t ft v -t •.'• J|« -t it sjc >;« * if. i;. >|t :.■: i|- ^: >;t £ # * it 3 jjt # j,; if. & * ♦ * it it / 

S C A N N E ft #**/ 

Vv '••• "•!' : '. >". : v v * '! : ; '.< >!« >!' * -i -"■.< ?!> >l- fc * ft it if if if if * >Jc $ if >;< # £ !)c f,e >Jt ?;« ajs >^ if j)t jj: << ;(; :;t >;; >;; ^; A / 
:',: >|: ;| . ;;: ;;< * :;-. >;; >;: ;;< ;|: )•,; ;;: :',: j, 1 ! ;;t # ;;c >^ >;; >|c >;: if :|: »;: <c if, s^ y,: >;< ;|; :{ -ff i'f. >\i sj; * # 5); -\ >[t >;; >;t sjt >Ji a[t £ >;c ^s / 



365; 

6 66 ; 

867 

868: 

fc69: 

870: 

a?i 

876 i 

874 : 

675 

876 

877: 

87h 

679 . 

see. 

681 

8ei2: 

333; 

864 

335; 

886.; 

6.87 

3b6: 

889; 

690: 

b&i 

692; 

693: 

894 

895 

696 

897 

698 

899: 

900: 



DCL FLAG BYTE? 



PUTIN.ACCUM: PHOr; 

if not cont then 
do; 

accumuccum : = accum + 1) = nextcha&j 
hashcod't - (iiashcode + nextcham and hashmask; 

IF ACCUM - 31 THEN f.OHT - T.tUEJ 

end; 
end put in accum ; 



PU TAN DC- FT: PKOC. 

CALL putinaccum; 

CALL GETNCBLANtC; 

IND putakdget; 



PUTANDCHAP: PKOC J 

CALL putinaccum; 

NEXTCHAR = GFTCHARi 

END putandcrar; 



NUMERIC: PPOC BYTPJ 

RSTURN(NEXTCHAR - '0') <« 9', 

END numeric; 



LOWERCASE: PaOC BYTE? 

hETUhN (NEXTCHAR >■= 61H) AND (NEXTCHAR <= ?AH)» 

EMD lower-case; 



•DECIMALPT:PROC BYTE; 



SO'l -: RETURN H E'XTCHAr.= ' . ' J 

9^2: END DECIM*LPTi 

903: 

904 : 

905: C(W5TC$UPPER:PR0C; 

^06: - IP LOWERC'SE «.ND LOWEI. $?0$UPPE1; TMF.M 

9S7: NEXTCHAR=Nt.XTCHAH AND 5FHJ 

903: END CONV$TQ$UPPEK i 

909: 

910: 

911: LETTER: PROC BYTE? - 

912: CALL CON V$TOiUPPFR ; 

91^- RETURN ({NEXTCHAR - 'A '.) <= 2ft) Oh LOWERCASE; 

914: FND LETTER? 

915: 

916: 

*1?: ALPHANUM: PROC BYTE? 

918: 7-ETURN NUMERIC Oh LETTER \ 

?j 919: END ALPHANUM 5 

920: 
921: 

922: SPOOLNUNRIC: PROCJ 
923: DO fcHILP NUMERIC-! 

924: CALL PUTANDCifAK; 

925: END? 

926: END SPOOLNUMR.I C ? 
92?: 
920: 

929: SET$NEXT$CALL: PROC? 
•930: IF NEXTCHAR = ' ' THEN 

931: CALL OETNOBLANK; 

932: CCNT = FALSE? 

933: END SET$N EXT$C «LLJ 
934: 
925: 

936: LOOKUP: PROC BYT3; 



o 






357: 

WS: 

939: 

940: 

9U: 

942; 

9i:5 : 

944 ; 

94b; 

j46: 

947: 

948: 

JV:'*: 

So0: 

951; 

3t2 

963 

954 

965 

956 

95? 

956 

969 

960 

961 

96k: 

962 

96't 

965: 

966 

<-">c? 

96) B 

96b 

9-70 

971 

9?- 



DCL HAXhWLNG LIT '•)'_; 

DECLARE VOC ft B DATA( ,'.','<' , '(','+', 5fiH , "" ' , '* ',')',' i ','-', V , ', ' 

, '>',':', '=',5DH, '..',':=', 'DO ','IF', 'IN ' , 'OF' , 'OR ' , 'TO ', 'SOP ' 

, '«.ND'. 'DIV','END', 'JOH'.'M-OD'.'NIL'. 'NOT' , 'SET ','VAH ', 'CASE' 

, 'ELSF', 'FILE', 'UOTO', 'THEN', 'TYPE;', 'Wl TH ', 'ARRAY ', 'BEGIN ', 'CONST' 

, 'LABEL', 'UN 'PIL'.'WHILR', 'DO'kNTO', 'PACK ED', 'RECORD', 'REPEAT' 

, 'P;,OGhAM' s ' FUNCTION' , ' PROCEDUR ¥■' ) » 

DOT- VLOC Di'TA(0, 1,17, 36,63, 91 ,121,145,152,160,169); 

DCL VNUM DAT A( 0,1 , 17, 25, 55 , 42 ,48, 53 ,56, 5? ) J 

DCL COUNT .DATA(Pi, 15,?, 9, 6,5,3,4}, 0,0)} 

DCL PTH-ADDH, ( FI ZLD EASED PTR ) (9) BYTE! 
DCL I BYT?; 

COMPARE: PROC BYTE; 

rci i byte; 

I » 0; 

do while (field(i) = &ccum(i := i +1)) and i o accumj 

fnd; 

return t > a'ccum; 
end compare; 



if accum > maxhwlng then 

return false? 
pt«=vloc( accun)+ .vocabj 

do i=vnum( accum) to ( v num( accum ) * couht( accum ) ) j 
if compare then 
do; 

TOKEN---!; 

IE I = 54 TKFN 



' 973: . ..— - - 

974: / * '•' '•'•' '■' '■■' •'•'■••• '■' * * ;;: * * * * r * ; ' : '•• -•' '■' * * * *■■ * ; ' ; * * * * =•- >'.- * * * * v * * / 

975: /* THE FOLLOWING COPE SETS UP STORAGE S. */ 

976: /* POINTERS FOh RECORD ENTRIES IN THE */ 

97?: /.* SYMBOL 1ARLS. */ 

9 7 8 : / '•* * '•' * * * ; ' : * v '•■ * * * * * * # * ; # * * * * * * * * # * * »•' * * # # * # * * * / 

979: 

9b0: DO? 

981: REC$NST = itEC*NST + li 

962: APTKADDh.hEC^PARJADKiHKCiNSDsSBTRLi 

963: ADDRPfH=0000Hj 

984: "^PTftADDk=APTr;ADDR+2; 

385: ABDRPTR-PRV$SET$ENTRY; 

986: ?RV<S3T$ENrnY=SBrBL; 

9=7: APThADDF.= APTBADDi;+2 5 

9n£: EYTEPTh = lFH; 

989: SBTBL--SBTBL+95 

09#: /* 1-FCOHD IKITI »ZATIONS */ 

991: .■ V-ARIANT$PART(REC?NST),TAG$FD(REC$NST}=FALSE; 

992: FXLfOFSTiBSE(.(KC$NST) = ^W0H; 

993: VARiCFSTiBSE(h:F.niNST> = P-0fiPli; 

994: CUR$OFST(KEC$NSTJ=00f*0H; 

995: VAh$CAS$VAL(i<EC$MST)=0-000H; 

996: HFCOHD$PTr^-i; 

ay?: END; 

998: RETURN TRUE? 

999: . END? 

1-000: ptr=ptr + accum; 

1001: end; 

10^:2: itFTUHN FALSE} 

100v^: END LOOKUP! 

1004: 
10!-5: 
1006": 

1007: /*.**»; ***'-:'sN*****::i-*5^.«:::****s^-«>;:*^**«s;:** *:!«*** *******************************/ 

1 '. 'o : / * * * r * * •■■ * *'• * * * * * ;:; '* * * * * * <* * * * * * * * * * £ * * v« * * * * * * <•• * * * * * * * * * * ****** * * * * * * * * * * * / 



U1 



1009 
1010 
1011 

1012 
1013 
1014 
1015 
1016 
1(51'? 
1016 
1019 
1020 
1021 
1022 
10215 
14*24 
1025 
1026 
102? 
102B 
1029 
1030 
1031 
1032 
1 033 
1034 
1035 
103G 
1 03? 
1 « 3B 
1039 
1040 
1041 
1042 
1043 
10C4 



/::•>: 



SCANNER - MAIN 



CODE 



ijji .»;. >;: if if v if '■'.- ifl~-',-ifvi-if & if if -f if if if if * * *!' £ £ sf. fc >',< if >': # i(c >;: $ if if ;,i ijt jjc $ if if >;« ^t <: if %t if if if if if if if # # s{« >;s s(< jjc ;| 



/ s;. ;;: i|: >;< •;< >;; jU »;: 5Cc ;:i s;. j^ »;< >> K: ^>:-*):-s;. <;>;;<:sS*^*>!-'<i*Jit*))!>^*:!5#i;t>!:>!<<"i"l<X<)!i^»!;>)ti('Ji'*»! | :<< i^ift-ififififififififii. 



do -forever; 

ACcUh, HASHCODE, TOKEN » 0i 
DO WHILE NL'XTCHAH = EOLCHARi 

CALL GETNOBLANKJ 
FND; 
IF (NEXTCHAR - Sl'Rl tJGPF-EIM ) OR CO NT THEN 

do; /* found strimg */ 

token = stringcj 
cont - false; 

DO JOhEVEHJ • 

DO WHILE GETCltAR <> STHINGDELIMi 

call putinaccumj 
end; 

call getnoelank; 
if nextchar <> stkitigpelim then 

hftuf-.n; 
call put$in$accum; 
end; /••= of do forever */ 

end; /*• of kecognizing a string */ 

else if numeric then 

do? /'? have digit */ 

token = numberc; 
typknum '■■« i.ntegek$tvpe; 
to while nextchar='0'5 /-slim leading zeros*/ 

nextchar=gftchar; 
end; 

CALL SPOOL lUMRIC; 

if decimslpt thf" 
do; 
vl'mpcharl = nextchar5 
n.kxtcka? = gftchar; 



if if if / 

t if if if if / 
f if if if if 01 



1045: IT DLCIMALPT Til FN 

1046: DOi 

1047: NFXTCHAK = ' '} 

104B: SOURCEPTR =SOURCEPTR - 2 J 

1049: END? 

1050: FLSF 

1051: DO? 

1052: . NKXTCHAR = TEMPCHAR1 ; 

1053: SOURCEPTR = SOURCEPTR - 1? 

1054: CALL putandchah; 

1055: Tf PEKUM - REALITY °E J 

1056: CALL SPOOLNUMRICJ 

1057: END} 

1058: END? 

1059: /* THIS TfKES CARE OF EX PON . FORM *'/ 

1060: IF NEXTCHAR •= 'E' THEN 

1061: DO? 

1062: TYPF.NUM - UNSIGN* FXPONJ 

1063: CALL PUTANDCHAR! 

1064: IF NEXTCHAR = '- ' CR NEXTCHAR = *+"'' THEN 

1/65: DO; 

1066: CALL PUTANDCHAR? 

1067:. HPENUM = S IGNED$EXPON ', 

If' 68: FND5 

1069: CALL SPOOLNUMRIC J 

1070: END? 

1071 : IF ACCUM ~ THEN 

1072: KASHCODE,ACCUM( ACCUM:=1) = '0'; 

1073: CALL SEf$NEXT$C ALL. 

1074: RETURN? 

1075: END? /* OF RECOGNIZING NUMERIC CONSTANT */ 

1076: ELSE IF LETTER THEN ' 

1077: DO? /* H.AVF A LFTTEL */ 

1076: DO WHILT ALPHANUMJ 

1 079: CALL PUTANDCHAR I 

10S0: FM'D! 



•J 



1031: IF NOT LOOKUP THEN 

1062: DOt 

1063: TOKEN = IPENTC} 

1034: CALL SFT$NF.XT$C»ILJ 

1085: RETURN} 

I0b6: F>JP} 

108?: ELSE /* IS A HW BUT IF COMMENT SKIP •?■/ . 

lUbis : DO! 

1089: CALL SE r$NEXT$CALLi 

1090: ' RETURN,' 

1091: END; 

1092: END? /* OF R ECOCNI ZI NO HW OR IDFNT */ 

1C.9I5: ELSE DO? /* SPECIAL CHARACTER */ 

1094: IF NEXTCRAw - CuMMENT THEN 

ioy5: do; • 

1096: NEXTCHAR » GETCHARJ 

109?: DO WHILE NEXTCHAR O UNCOMMENT; 

1098: NEXTCHAR = GFTCHAR> 

1099: END? 

1100: CALL GET$NOSBLANK; 

ll-/x: end; 

HOP: ELSE 

ll&'6i do; 

1104* IE NEXTCHAR = ':' THEN 

1105: DO; 

1106: CALL .PUTANDCHAR; 

110?: IF NEXTCHAR - '=' THEN 

i'l-P-3'": CALL PUTANDGET5 

H43i END; 

1110: ELSE 

1111: IF NEXTCHAR '- ' . ' THEN 

1112: DO; 

1113: CALL PJTANDCHARJ 

1114: IF NFXTCHAR » '.' THEN 

1115: CALL PUTANDiiST; 

1116: 



111? 

1116; 

1119: 

1120: 

1121 

1122: 

1123: 

1124: 

1125 

1126: 

112?. 

112b: 

13.29 

11 3f 

1131 

1132 

1133: 

1134 

1 ,1 35.: 

113 

113?: 

1133: 

1139; 

114H 

1141 

1142 

1143: 

1144 

114b: 

1146: 

114? 

1148: 

1149; 

1150 

1151 

1152 



ELSE 

IF N'Uh'EPlC THEN 

do; 

TOKEN - NUhBLRCi 
TYPF.NUM = REAT,$TYPE; 
CALL SPOOLNUMRIC ; 
/> ,; CHECK FOR EXPONENT */ 
IF' NF.XTCH«H = 'Y.' THEN 

do; 

typ'enum*unsign$ex?on; 

CALL PUTANDtHARJ 

IF NEXTCHAR - '-' OR NEXTCHAR ~ 

do; 

typenum=signed:?expon; 

CALL putandchar; 
end; 

CALL SPOOLNOMRICi 

End'; 

call set$next$call ; 

RETURN; 

END; 
end; 

ELSE 

call putandget; 
if not lockup then 

CALL EHKOR( 'NC')t* 
CALL $FT$NEXTiCALL; 
RETURN? 



THEN 



END; 

end; 
end scanner; . 



/'* OF RECOGNIZING SPECIAL CHAR */ 
/* OF DO FOREVER */ 
/* END OF SCANNER */ 



f >',: % :',i >'.. >'.; t|; >'.: # :': * )',; # $ £; :|. >;; >;; & j;. i.. j;c >|; •:,: s;; i;c :;, >;; 5|: £ i\; >;c ;;< j|: ;Jc :;: >;; j;j y,: £ # :'.: ;^ >|; if >;: if # j^ if jjt a(; s): :(: sjs a); »;; >;t $ j), >^ # >•: # if ^: y,: jj. v ' 



115:5: 
1154: 
11.65: 
1 1 16 : 
115°: 
1 1 bti : 
1 1 fcii : 
1160: 
1 161 : 
1162: 
1163: 
1164 : 
1165: 
i 1 66 : 
116?: 
1168: 
1169: 
1170: 
1171: 
1172: 

1 1 ?;*; : 

1174: 

liVb: 

1176: 

1177: 

1 1 7fc. : 

1179: 

118?: 

1191: 

1 1 82 :■■ 

1163: 

1184: 

1185: 

1186: 

1187: 

1 1 88 : 






;::',; ;.: ;;: ;;c s;c ;;*. >;< ;|. 



/ >Jc ;;: >|i >\i i'fi >;.' >|( )|; .-;; >\ 3|; ;,, ;|; „ t ; >|; ^t £ ;$; ;\ jj. 



iNiTlSYMTBI: P.kOCJ. 
ECL SYMEASE 



no; 

CALL n 
SYM3ASE 
SBTBL=. 
HASHTAB 
HASHTAB 
HASHTAB 
HASHTAB 
HASHTAB 
HASHTA1 
H/SHTAB 
HASHTAB 
HASHTAB 
HASHTAB 
HASHTAB 
HASHTAB 
HASHTAB 
HASHTAB 
hASHTAB 
HASHTAB 
HASHTAB 
J'ASHTAt 
HAS.iTAB 
H»SHTAB 
• HASHTAB 
HnSHTAB 



LL 

MR 

LE 

LE 

LE 

I.E 

LE 

LE 

If 

LB 1 

LE 

LE 

LE 

LE 

LE 

LE 

LE 

LE 

LE 

LE 

LE 

LE 

LE 

LE 



i .HA 

Ban 

MC'RY 
(14) 
(36) 
(30) 

(0) = 

(69) 

(16) 

vil3 

(86) 

(118 

(>7) 

(109 

(26) 

(74) 

(87) 

(02) 

(12 

(ti) = 

(101 

(93) 

(46) 

(43* 

(12 ) 



• ****:;****^*******s£*v************ ***********->**** / 
PROCEDURES EOK SYNTHESIZER ***/ 

: *;-. A * * ■',- sji * * * # * i/. -fy .-;« # 5|: >;« >»: # j|r * (J< ;J< :;, £ # !< # sjt # ;|; j; ; # s; £ * >[< # .-;« # >^ * jjt # ){t >;e # # / 
•*** ***i->!'^*^ i * ************************** **********/ 



adbr; 

SHTAbLE,0,SHL(HASHTBLSIZL f l))j 

t$in$tpl; 
symbase; 

= SYMBAiF«-X4; 

=SYMBASE+2b; 

SYMBASE+36J 

^SYMBASE+C0? 

^SYMBASE+Ci ; 

)^SYMBAi>E + 73f 

"SYMBASF+96; 

)--SYMBASE+1005 

-SYMBASE+-142J 

hSYMBASF + 169, 

^SYriBA'SE+173; 

=SYM?ASE+186; 

-SYMBAr-F+20i; 

=SYMBASE+230J 

■^SYMEASE+2445 

5YMBASF+260J 

HSYMFASE + 2765 

= SYM.BASE + 290i 

= SY-MB*SF*3«4i 

~SYMI-ASf:'319; 

^SYMBASS+334 



•11R9: HASHTABLE(96)^F"MBASF*347- 

1190: KASHTAfclF^ >-;■•.' ..2AS ti-o60; 

11 91: HASHT rt iJLuvA4)*SlfMs!ASE+375; 

119?' HASHT.VBLEU9)=SYMBASE*392» 

iiaio: HASHTABLE( 106 )-S YMBASE+406 ; 

1194: HASHTAhLE(23)=SYMBASE+418; 

1195: HASHTABLZ(64 )=SYMBASE+434 5 

1196: FASHTAELE(107 ) = S YMBASE+449? 

1197: EASHTABLE(28)=SYM3ASE+465i 

119B: HASHTABLE(b4)=SyMBASE+4?a» 

lliiy: HASHTAbL2(ll )=SYMEASE+493J 

1200: HA5HTAbLE(37)=SYMBASE+507; 

12fl: H*SHT«BLE(40)=SYMBASE+523j 

1202: HASHTABLE(21)=SYMBASE+538J 

1203: KASHTABJ.E(99)-SYM3ASE + 552; 

12f4: H?SHTABLE(62)=SYMBASE+567i 

1285: ?RV$SEt$ENTHY - STfMEASE+b67J 
1206: 



■ft 12P7: END; 

o 



120S: END INIT$SYMTEL; 

1209: 

1210: 

1211 : /#**####*>;■ ;##*#■**. *'*■*##* #4* #««##^>^4^«##«^«»#^#####iK^4^<i«^#^^'#^>^4«i^«##/ 

1212: / * * * * * * * * * * * * ;:- * r * * * * * * ;: - * * * * * * * * # * # * * * # * # * * * * * * * ## * * * ♦ * ■* * >!' * * ** * # * ** * ♦ * * * / 

1213: /#.** p A « S E R ***'/ 

1214 : Z********** *.*»?**'>* *>:'*»>*>::*»!<*# »>♦***** ::<*:;<;;»;< .;<>:<$ &#:;cy,i££ ###*:*####$$$<< *«#$$$v<";</ 

1215: / * * * *'* '••' r ' ;: * * * * * * * * * * * * * !; ' * * * * * * * * * * * * * * * * * * * { f *• * * * # <« # * * * >>#»:<**##* *♦#**#*>!»#*# / 

1216: 

1217: 

121b.: r-Oj /* SCOPE FOR PARSER */ 

1219: DHL STATE STAi'ESIZE, 

1220: VAIUPSTACKSIZL) EYTE, 

1221: HASH(PSTACKSIZE) BYTE, 

1222V; STATESTACK(PSTACKSIZE) STATESIZE, 

1223: PARMNUM{PST'A C KSI2.E) BYTE, /* MAINTAINS NUMBER OF PARAMETERS 

1224: ' ASSOCIATED tflTH A SUBROUTINE */ 



In 



1225 
1 2.26 
12 27 
1226 
1229 
12150 
1231 
123k; 
1233 
1234 
123b 
1236 
123? 
1239 
1239 
1242 
1241 
1242 
1243 
1244 
1245 
1246 
1 24? 

i24a 

1249 
1 250 
1251 
1252 
12 53 
1254 
1255 
12 56 
125V 
1258 
12o9 
126? 



LABELSTACK(PSTACKSIZE) ADDK , 
PAHMNUrtLOC(PSTA-CKClZE) ADDR , 

BASEHOf (PSTACKSIZE) ADDR, 
FORMiF!ELD(PS T ACKS IZE) BYTE, 

TYPE4STACK(HSTACKSIZE)BYTE,/ 
EXPhFSS$STK(PSlACKSIZE)BYTE, 

p!iT$Ar.Dh(PSTACKbIZ?) ADDR, 

VAHC(VARCSIZF) BYTE, 

(VAS INDEX, PAH AMNUM) BYTE, 

(SP,MP,MP?1 ,NOI.OOK) BYTEs 

/* NMUMON1CS FOR PASCAL-SM MACHINE */ 



DCL 



/* Tl'ACKS STATEMENT LABELS */ 

/* MAINTAINS THE LOCATION IN SYMEOL 

TBL WHERE PARAMETER I.NFO STORED */ 
/* STOKES THE SYMBOL TABLE ADDRESS 

OF THE PERTINATF ENTRY */ 

/* STOKES THE FORM FIELD OF 

SCANNED .IDENTIFIERS */ 
* HOLDS A VARIABLE'S TYPE 

/* CONTAINS THE TYPES OF 

EXPRESSION COMPONENTS */ 

/* STORES AN IDENTIFIER'S 

LOCATION */ 



*/ 

THE 

PRT 



NOP 


LIT 


'0' 


ENDP 


LIT 


'1' 


,LBL 


LIT 


'2' 


,LDIB 


LIT 


'3', 


LDII 


LIT 


'4' 


,PKO 


LIT 


'5' 


,RTN 


LIT 


'6' 


SAVP 


LIT 


'?', 


UNSP 


LIT 


'a' 


CNVB 


LIT 


'9' 


,CNVI 


LIT 


'10' 


ALL 


LIT 


'11', 


LITA 


LIT 


'12', 


ADDB 


LIT 


'13' 


,ADOI 


LIT 


'14' 


SUBB 


LIT 


'15', 


SUM 


LIT 


'16' 


MULB 


LIT 


'17' 


,MULI 


LIT 


'18' 


,BIVB 


LIT 


'19', 


DI'/I . 


LIT 


'20' 


MODX 


LIT 


'21' 


,EQLI 


LIT 


'22' 


NEQI 


LIT 


'23', 


LKQI 


LIT 


'24', 


GFQI 


LIT 


'25' 


,LSSI 


LIT 


'26' 


GRTI 


LIT 


'27 ' , 


X IN 


LIT 


'29' 


FQLB 


LIT 


'29' 


,NEQB 


LI r 


'30' 


LEQB 


LIT 


'31', 


G f'OB 


LIT 


'32' 


LSSB 


LIT 


'33' 


,GRTB 


LIT 


'34', 


FOLS 


LIT 


'35', 


Nt'OS 


LIT 


'36', 


LEQS 


LIT 


'37' 


,GEQS 


LIT 


'38', 


LSSS 


LIT 


'39 ' , 


ffST'S 


LIT 


'40' 


EOS FT 


LIT 


'*r 


.NEQST 


LIT 


'42', 


INCL1 


LIT 


'43', 


IUC12 


LIT 


'44' 


N EG B 


LIT 


'45' 














NJGI 


LIT 


'46' 


COMB 


LIT 


'47' 


!cOMI 


LIT 


'48' 


NOTX 


LIT 


'49', 


ANPX 


LIT 


'50' 


HOK 


LIT 


'51' 


,STOB 


LIT 


'52' 


STO I 


LIT 


'53', 


STO 


LIT 


*54', 


S.TDB 


LIT 


'55' 


,5TDI 


LIT 


'56' 


STD 


LIT 


'57', 


UNION 


LIT 


' 5b ' , 


STIjI F 


LIT 


'59' 


, I SEC 


LIT 


'63', 


CNAI 


LIT 


'61', 


FHL 


LIT 


'62', 


bLC 


LIT 


'63' 


,CN2I 


LIT 


'64' 


MKSET 


LIT 


'65', 


XCHG 


LIT 


'66' 


PALM 


LIT 


'67' 


,PARMV 


LIT 


'63', 


PAEMX 


LIT 


'69', 






1261 
1262 
1263 
1264 
1265 
1266 
1267 
126b 
1269 
1 270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1276 
1279 
1260 
1281 
1262 
1283 
1264 
1285 
12b6 
1267 

i2ee 

1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 



INC 


LIT 


'70 


,DEC 


LIT 


'71.' 


,DEL 


LIT 


'?2',WRT 


LIT 


'73', 


SUB 


LIT 


'74' 


,LDSI 


LIT 


'75' 


,KASE 


LIT 


'76',L0D 


LIT 


'77', 


LODB 


LIT 


'78' 


,10DI 


LIT 


'79' 


,hDVB 


LIT 


'80',RDVI 


LIT 


'61', 


RDVS 


LIT 


'82' 


,WRTB 


LIT 


'83' 


,WRTI 


LIT 


'hl'.MTS 


LIT 


'85', 


BUMP 


LIT 


'86 


, A BS 


LIT 


'87' 


,SQR- 


LIT 


"88', SIN 


LIT 


'89', 


COS 


LIT 


'90' 


.AI.CTN 


LIT 


'91' 


,EXP 


LIT 


'92', LN 


LIT 


'93', 


SQRT 


LIT 


'94' 


,ODD 


LIT 


'95' 


,EOLN 


LIT 


'96',EXF 


LIT 


'97', 


TfcUNC 


LIT 


'98 


, ROUND 


LIT 


'09' 


,ORD 


LIT 


'100', CHR 


LIT 


'101', 


SUC" 


LIT 


'102' 


,P«ED 


LIT 


'103' 


,SEEK 


LIT 


'104', PUT 


LIT 


'ieo', 


GET - 


LIT 


'106' 


,KKSET 


JIT 


'107' 


,rew:it 


LIT 


'106', PAGE 


LIT 


'109', 


NK.W 


LIT 


'110' 


,DIS?Z 


LIT 


'111' 


,FWD 


LIT 


'112',XTRNL 


LIT 


'113', 


RPV 


LIT 


'114' 


» 

















INITiALIZE^SYNTHESIZE: PhOC; 
CODESIZE = 0; 
SETBLT0P=MAX-2> 
VFCPTR=0? CONST$PTR=0? 

CONST$INDX^0; 
COfJST$PNiPTR = 0," 
SUBrt$PTft-05 
ARY$DM$ADR$PTR=-1 J 
ARRY$PTR=-1; 

■variant^past=falsf; 

AR/»Y*OTY-0; 
ALLOC$ADDR=0i 

end initialize$synthesize? 



:/ ^ * * # <• ■>'.< --:= * ■.■ * if. * ••;= * * * >'f * * * * ■■',' *;■ # * ■'.- =;< * >'.• <•• * * # * * * * >'/ >'t * # # •> * * * * * * * * * * * # * # * * * * * * * * * * # * * / 

/*** CODE GENERATING PROCEDURES ***/ 

/ ;!'• v * * ■'.< ?j >:• ;> =:• * -;■ >x •;■ >!• & >'.: >;« * * # * * * ■>';■ >',* >;•• =:<■ •.;< >;= * v ; i ; >> >;< •;< # ='.- »> -:- ♦ * * << -'.< *\> * =m- * # >;« ♦♦ * * ♦ * & * ♦* <« # >!< # >;= * * * * / 



SYNTHESIZE: PROCi 



/* SYNTHESIZE LOCAL DECLARATIONS */ 



K 



1297: 

1296 : 

1299: 

1300; 

1301: 

1302: 

1303: 

1304: 

130b: 

1306: 

1307: 

1308: 

1309; 

1310: 

1311: 

1312: 

1313: 

1314: 

131t: 

1316.: 

131?r 

3318: 

1319: 

1320: 

1321: 

1322: 

1323 : 

1324? 

132b: 

1326: 

132?: 

1328: 

1329: 

1330: 

1331: 

1332: 



/ if if if if if * if * * .,. i,. %. if i'.sijc ;'; -,[<. :\ i\. if if ;,, if if : ; : ;): if jj; :; t if if # if j|t # $ ;J: * * if if jjt $ if # <t # $ 

* SEf$ADDRFSS$PTR - THIS PROCEDURE SETS A » 

* POINTER TO A SPECIFIC LOCATION IN THE * 

* SYMBOL TABLE. * 

if if if if if *■ if if if :f if if if if jjc >,< -.J: ;J; * if if if if if sjc if if if if if v if if * if if if if if if if if if if if * * * / 

SETADDRPTR: PEGC (OFFSET ) ; 

DCL OFFSET BYTE? 

APTRADDh * BASE + OFFSET; 
END SETADDRPTR ; 



/ifir&ifififififififififi,: if if if if i,;Vf if if if ififififififif },iifififif it ifjfififtfjjf % #.$$$$$ 

* SET^PAbTiPJtt-NTNAME - THIS PROCEDURE SFTS * 

* APTRADDH TO A LOCATION I H A SYMBOL TABLE * 

* ENTRY THAT IS PAST THE ENTRY'S PRINTNAME * 

* (WHICH IS OF VARIABLE LENGTH), * 

£#£ ft *#s!"rv&^ *£>};# *:;:;;•>;< ifK-Sf &i.t$.if%ii:ififif3l:$i%.ifif>i:>f)j;ifllc>}Lif>itif% iff / 

SET$PASi$PN: PRCC(OFF5ET ) » 
DCL OFFSET BYTE; 
CALL SETADDRPTR. (6); 
CALL SFTADDRPTR(BYTEPTR + OFFSET); 

END sft$past$pn; 



/<Z*l-i?-r -'ft- if*' %&'Xifif44ifK-ifif&*if%if#*i< + i?ifi. : <i%t:%%%ifi<<i<%&ifi%#if%& 

* CALC$VARC - THIS PROCEDURE DETERMINES THE * 

* LOCATION OF AN IDENTIFIER PRINTNAME. * 

* if if if -If A* if if %• v if jJc V * # if if if v if V if * >i< A- if i.' * if if if if if if ifififififififififififififtf./ 

CALC$VARC: PROC(A) A'DMl? 
DCL A fyte; 
RETURN VAR(A ) ♦• .VARC» 






l 333 

VIM 

1335 

1336 

133? 

133d 

1339: 

1340: 

1341: 

1342: 

1343: 

1344: 

1345: 

1346: 

1347: 

1348: 

134S: 

1350: 

1351: 

13 52: 

1353: 

1 354 : 

1355: 

1356: 

135?: 

135ft: 

1359: 

1360: 

1361: 
1362: 
1363: 
1364: 
1365: 
1366.: 
1367: 
1369: 



END CALC!?VARC; 



/ * * >:• * •{ -.< * */■ >;• ••• •.• * * >,• # >: ; * £ * >;• >:- # # * v # >'f if »;•• ;.< v * if # * *>>>>* ^ if ♦ * * $ & * # 

* SETHOOKUP - THIS PS,OCEDUhE IS UTILIZED TO * 

* FIND THK HAjH VALUE OF AN IDENTIFIER. * 
ij< >;< >;; j;< >;: ;•,; >> >;: >;< >;: >;t -.ji ^i ;;. # # ^< ^: # if >;c >;< $ # # if # j|; jj: $ # >;< # s^ * it if >;: >jt ^'- # >Jc >;; & # y,c * # / 

StTXOOKUP: PRO.CU)} 

DCL A BYTE! 

PBINTNAME = CALC*VARC(A) i 

SYMHASH - HASH(A); /* KASHCODE OF FN */ 
END SETLOOKUr; 



f if if if * # ><= * if & * # #* *<•' * if >* ♦ :^ * '•',- if if if 'I' •> * * s|; ****** # # * * v # ♦ *!• # # # * / 



/* 

./* 

/* 
/'* 



ENTFFHINKS - THIS PROCEDURE ENTEfS IN THE 
NEXT FOUR BYTES OF THF SYMBOL TABLE THE 
COLLISION FIELD AMD THE PREVIOUS SYMBOL 
TAELE ENTRY ADDRESS FIELD FOR THE NEXT 
SYMBOL TABLE FNThY . < BOTH IN ADDRESS VAR 



*/ 
*./ 
V 

*/ 



/ * ■',• if if i> v X-ifif $ if if if if if if if if if i,i if if if* if $ if if if if if if }f j[: if if if >;: if if >;: if if $ * if # # / 

ENTEfiiLINKS: PHOC. 

BASE, APTkADDR, SBTBLSCOPE = SBTBLJ 

SCOPE(SCOPE$NUM) = SBTBL; 

ADDhpTR = HASHTABLE(SYMHASH); 

CALL SFTAI)Di;PTh(2); 

ADDRPTR * PR V$SBTi ENTRY,' 

PKV$SBT$KNTRY * SBTPLI 

HASHTABLfc(SYMHASH) =BASE! 
END ENTER? LINKS; 



■'■ CHECK $PklNT}NAME - THIS PROCEDURE DOES A * 






1369 
1370 
1371 

1372 
1373 
1374 
1375 
1376 
1377 
1373 
1379 
.1380 
1381 
1382 
13fc3 
1384 
1385 
1366 
1367 
1366 
1369 
1390 
1391 
1392 
1363 
•1394 
1395 
1396 
1397 
139a 
1399 
1403 
14 01 
14P2 
14 03 
1404 



* CHARACTER TO CHAKACTER COMPARISON BETWEEN 

* THE CURRENTLY RECOGNIZED IDENTIFIER .AND * 

* SYMBOL TABLE ENTRIES' OF THE SAME HASH VA.LUE.* 

********■#*********■****£******#**#******.**■*****,*.*/ 

CHK$PHT$NAME: PRGC(A) BYTE; 

/* A IS OFFSET FROM BASE TO PB I NT NAME *7 
DCL N BASED PRINTNAME BYTE! 
DCL (LEN.A) BYTE? 
CALL SFTAI)DL.PTR( A); 
IF ( LFN := MTEPTR ) = N THEN 
DO WHILE ■{BYTEPTh(.-tEtt) = M(LEN))5 
IF ( LEN :« L^N-i ) * THEN 

return true; 
end; 

RETURN FALSFi 

END cm$prt$name; 



/***************************** ********** *******#*/ 
/* LOOKUP$PRINTrtAME:?IDENTITY - THIS PROCEDURE */ . 
/* IS PASSED THE LOCATION OF AN IDENTIFIER IN */ 
/* THE PRODUCTION RULE, AND ITS TARGET ENTkY */ 
/* TYPE. IF THE IDENTIFIER IS FOUND WITH THE */ 
/* COMtECT TYPE THE PkOCEDURE IJETURN TRUE, */ 

/'* ELSE FALSE IS RETURNED. */ 

/ * * * * * * * * * * * * * * ****** * ***** X' * ****** * * * * * * * * * * * * * * / 

tOOKUP$PN$ID: PliOC ( A , ID$ENTF.Y) BYTE? 
DCL (A,ID$ENTRY) faYTEj 
CALL SFTLOOKUPU); 
BASE - HASHTABLE(SYMHASH); 
EO WHILE BASE <> 0? 
CALL SETADDRPTK4); 

If (( BYTEPTR AND FORMMASK ) = ID$£TJTRY ) THEN 
IF CHK$PRT$NAME(«5) THEN 



In 



14 P& 
1406 
I4fi? 
14P6 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
141V 

1419 
14 IP 

i'4 20 
1421 
1422 
1423 
14 24 
1425 
1426 
142V 
1428 
1429 
1430 
14 31 
1432 
14153 
1434 
I4i5 
1436 
1437 
1438 
1439 
1440 



END 



IF (O.MSF < SCOPE(e)) OR (BASE >= SCOPF,(SCCPE$NUM-l ) ) 

OP' ((ID^ENTRY - XYPFHNThY) AND (BASE < SCOPE(SCOPE$NUM) ) ) } 

T H E N B J 

LOOKUP$ADDt^6ASEi 

return true; 
end; • — "• — 

C£LL SETADDhPTH(B); 
EASE= ADDHPTHi 

end; 

return false; • 

lookup$pn$id; 



/* 
/* 
/* 

/* 
/* 

/* 



*'! ; *:!'»r-:-****^4>',;*j;w;:);:*^>:;*^^^:;:^*):;^*; 



if if i[: $$# if $ if if if # # # / 



LIMITS - THIS' PROCEDURE ENSURES THAT THE 
SYMBOL TABLE ENTRY ABOUT TO BE ENTERED 
WILL NOT EXCEED THE UPPER LIMIT OF THE 
AVAILABLE SYMBOL TAHLE ADDRESSES. 
THE PARAMETER IS- THE BYTECOUNT OF THE 
ENTRY TO BE ENTERED. 

v^v^^v -I/X* : r '!* A ; v 'r ?!•»!' »\* v .*!* 'Wfi v *•* >! ; X s a '* ■»!*♦>«* *;■ 



.". J. .• .1 



*/ 

*/ 
*/ 
*/ 



limits: proc(count). 
dci. count byte; 
i? sbtbltop <= ( 

■ DO ; 

ERROR ('TO 
M0N3J 



SB TBI. + COUNT) THEN 



END 



CALL 
C*LL 

end; 
limits; 



J if if :\~ if if /.: >■,(■;■. if if if if t.if * if -.;. if : ; ; ,;< ; ;< > l? if : ; t # * % % % if if if if * if i;. if if * i,: * * # j|: * £ # * / 

>* ENTFR$PRINTNAME$ILENTH'Y - THIS PROCEDURE */ 
/:■* LOADS THE SYMBOL TABLE WITH THE FOLLOWING: */ 
/* 1. COLLISION FIFLP */ 






1441 : 

1^42: 

1 i-i'6: 

14.-.4: 

1445: 

1446: 

14 47: 

144S: 

1449: 

14 5<-': 

14 51 : 

1462: 

1453: 

1454: 

14 5b: 

1456: 

1457: 

1458: 

1459: 

1460: 

1461: 

1462: 

146:5: 

1464: 

1465: 

1466: 

1467: 

1468: 

146u: 

1470: 

1471 : 

1-172: 

1473: 

1474: 

1475: 

1 476 : 



/* 
/* 
/■* 
/* 
/* 



2. PREVIOUS SYMfaOL TABLE ENTRY 

3. FORM OK ENTRY ( PRESET BYTE 

4. 1HV LENGTH OF THE PRINTNAME 

5. THE PKINTNAME CHARACTERS 



PARAMETER 

: '.',: ;',. }',: >*-. aj; %± t\i ;^ >;: ) 



ADPRESS */ 

'eoj-.m' ) */ 
in on? byte*/ 

*/ 



PRINT NAME 

; s;c & >!c ;!t rf; ;!. ;'« ;!; :': ;' 



IS SET 



PHIOR TO CALL. */ 

♦ # * * * Jje # K< * * + # * & << <s / 



ENTEH$PN$ID:P!iOC» 

• LCL (I, J.N BASED PKINTNAME) BYTE; 
CALL LlMIT5(I:=N+7)? 
CALL ENTER$LINKSJ 
CALL St?TALDkPTR(4); 
BYTEPTh = FORM? 
CALL SETADDRPTR(5); 
BYTEPTR = SYMHASH5 
CM. I. SFTADDHPTR(6); 
bYTi-PTR^NJ 

CALL M0VE(PRINTNAME+1 ,SBTHL+7,N )? 
L«ST$SBTBL$ID = SBTBLJ 
SBTBL-SBTBL-rJ; 

END entek$pn£id; 



/ ■■:■ * * i 

t* 

/* 

/* 

/* 

'/.*■ 

/* 



#. X: i- * :',i s|< '# fc :i: %. tf :|; ;|: .; 



£ # ;J >!< # # >;• >!< i 



< -!- * * i * f>t * ; r «' * * * * * * if * / 



ENT*'R$VAKI ABLE* IDENTITY - THIS PROCEDURE 
Cr.LLS ENTEi<?PN$ID TO LOAD THE SYMBOL TABLE 
ENTRY' CURRENTLY BEING SCANNED. IT ALSO 
GENERATES THE ENThY'S "FOR'. BY PEl FORMING 
A 1-OOL5AN 'OR' OPERATION (•:. THE ID$ENTRY 
AND THE PARAMETER "a". 



/ & <v # '* * <* -',< v £ * *•' # * * * # < ; * # # * * # # # ■> 



,: >,« j;. 



*/ 
*/ 
*/ 
*/ 
*/ 
*/ 



,. t r if M >\t. >|: ;•{ j[: »;; # ## j}: *,. >Jt :(< # £ / 



FNTFH$VAR$ID: PKOC <A ,B , ID$RNTRY 
DCL ( A, B,. IDS ENTRY) BYTE,' 
I F LOOKU P c y PI, $ I D ( E , I D<. EMT R Y ) 
1)05 



THFN 



14?? 
1478 
1479 
14H0 
1461 
1462 
148.3 
1484 
1465 
14b6 
14 87 
1468 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1493 
1499 
1&.00 
1501 



1504' 
15P5 
1506 
1507 
i5P3 
1509 
1518 
1511 
1512 



PRESFNT = TRUE? 

RETURN? 
END; 
/* ELSE ENTiR VAR NAME */ 

present = false; 
form = a or ibhnthy; 
call enter^pn^id; 
if id$enthy * vaj^entr'i' then 
do; 
call mmits(4)5 

V AIi$BASFl( VAlsiPTh ) r SBTBL? 
SBTBL » SBTEL + 4j 

knd; 
end enter$var$id; 



/************************************************/ 

/* SET$LABKL - THIS Pi-.OCEDUKE ASSIGNS A LABEL */ 
/* TO THE CURRENT DECLARED LABEL AND INCREMENT*/ 

/•* tht: ub ei; count ( NEXT to assign ). */ 

/* ************ *******^******************;;l ******** / 



SET*. LAB EL: PROCi 

addrptr=lablcount; 
lablcount--lablcount+1 ; 
end set$l.«bel> 



J if * * * * it * * * * * * * * * * * * -'.: * * **:',*** * -4: if * * * * ****** * * * * * * * * / 

/* ENTEF.$LABEL - THIS PROCEDURE LOADS A LABEL */ 
/* ENTRY INTO THE SYMBOL TABLE. SYMKASH AND */ 
/* PRIN'i'NIME MUST BE SET PRIOR TO CALLING */ 

/ * v * * * * * * * * * * * * * * * * * * * * * * * * * * * * if * * if * * * * **********/ 



ENTER$LAB?L: PROC5 
CALL LIMITSC2) ; 



1513: APTRADDR = SBTBL? 

1514: CALL SFT$LABEL» 

1515: SBTfiL = SBTBL+2J 

1516: END ENTFR$UEELJ 
1517: 
1519: 

1 519 : /♦♦s!'*'!!****.*^****** ****»>#>>■#>!«# ft. Jit***** **##****# *##*f!!(i 

152-0: * ALTER$PRTiLOCATIONS - THiS PROCEDURE RE- * 

1521: * ALLOCATES PRT LOCATIONS FOR ALL FUNCTIONS * 

1522: * AND FOHWArtD PROCFDUKFS AND THEIR ASSOCIATED* 

1523: * FORMAL PARAMETERS. * 

1524 : ^** *■*♦**********.**#*** Ss?*************^*.******?!'^^./ 
1525: 

152b: ALTEft$PKT$LOC: PROC; 
1527: DCL (I ,P) BYTE? 
1528: CALL S ET$PAST$PN (7 ) ; 
1529: P = RYTEPTRi 
153P: PARAMNUMLOC = APTHADDHJ 
1531: DO I = 1 TO P5 
S 1532: CALL SET$PAST$PN (8) 5 

1533: APThADDR = ADDhPTK t ((I-1)*3)J 

1531: DO CASE ( SHK ( BYTEPTR ,3 ) AND FOtJMMASK) ; 

1535: 

1536: 

1537: 

153o: 

1 539 : 

1540: 

1541: 

1542: 

1543: 

1544: 

1545: 

1546: 

1547: 

1548: 



ALI.C$Q'fY 


? 1? /■< 


' SCALAH 


*/ 


ALLciOTY. 


= 2', /* 


INTEOEh 


V 


AUC$QTY 


* e; /.* 


R FA L 


*/ 




ALLCiQTY 


= .li /* 


CHAR 


*/ 




ALLC$QTY 


= i; /* 


BOOLEAN 


*/ 


end; 


/* 


: OF i 


CASE 


*/ 


APTHADDR - 


APTn' A DDK i 


i; 






ADDhPTR = 


ALLOCiADDRJ 








APTRADDh = 


TEhPADDHli 








APTRADDh =- 


APTRAXPH ♦ 


o; 






APTRADDfi - 


APTi-ADDR « 


l i 


BYT 


fptp; 


ADDHPTH s t 


*lloc$addh; 








■ALLOC$ADDk 


--• ALLOCS A DPR + 


allc^qty; 


TFi'PADDhl '■■ 


~- APTRADDH 


+ 4; 







1549: END; 

1550: END ALTER $PHTUOC i 

1551; 

1552: 

1 ^ 5 3 : />;•■.- >\- * ■■'.• * •■'.• * * * *:•• # * i- * ■■:■ ■.:• * * ■:■ >■.. >:<■ >' r ■'.- * * * <•• =:- >,< =:• * >:= * * * ■•'.• * * * *■* * # * * * * 

1554; * ENTERiSUBRCUTTNK - THIS PROCEDURE LOADS A * 

1555: * SUBROUTINE F.NTI-'Y IN 'THE SYMBOL TABLE. THE * 

1556: r PARAMETER MUMBEK LOCATION 13 STORED AND THE * 

155V: * SCOPE LEVEL IS INCHIMEMTED BY ONE. * 

1 558 : fc**^'* 1 *^*^***^ v# #■***>;- *v.*v*#* #X\##^ 

1 559 : 

156P: ENTER$SUB.-1TN: PROC ( A , B , I D$ENTH Y ) J 

1561: DCL ( A , fl , ID$ ENTRY ) BYTE; 

1562; CALL RNTERi VAR $1 D{ , SP, ID$ENTRY); 

1563: IF NOT PRESENT THEN 

1564: DO; 

1565: CALL LIMITSU); 

1566: PAPAMNUMLOC - „BTBLi 

m 156?: SBTBL = SBTH + 3? 

o 156e: CALL SET$PAST $PN( 10) i 

1569: ADDRPTft = ALLOCS ADDn'i ALLOCiADDfi = ALLOC$ADDR + 2J 

1570: CALL S ET$P AST$ PN ( 14 ) ; 

1571: ADDRPTR = UBLCOUNT; 

15V2: LAHLCOUNT = T.A3LC0UNT + 25 

1573: SfTBL - SETtL i V'i 

1574: IF IDiKiJ'fh* = EUNC-i ENTRY THEN 

1575: DO; 

1576: SBTBL - SETEL < 1} 

1577: ENDS 

4bVd': END; 

1579: ELSE DO; /■* EGHVAkD FUNCTION */ 

lbd't*: CALL SKT$PAST$PN{ 14 )\ 

1561: IF ID^ENTRY - EUNC^EMTRY THEN TEMPAODrfl * APTRADDR + 3> 

l'Jt2: KISS TEMPADDR1 * APTRADDR + 2; 

1563: CALL SKTiPAST$PN( )H)i 

1584: ADDrPTR - aLOCiADDRJ 



US 1 . 

15fc;6; 

lf)5?; 

lbt-9. 

15a9; 

1590 

lfcyl 

1592 

1593; 

1 594 

1595: 

1596 

1597 

159d; 
1599; 
lb 00; 

1601 

16P2 

1605; 

1604; 

16P5: 

1606 

l6viV 

16P9; 

1609: 

1610 

1011 

1612; 

1613: 

1614 

1615 

1-616: 

1617 

1616 

1619; 

1620; 



alloc$addr =■ allocsaddp- ■» 2; 
call alter$prt$loc; 
end; 

PAHMNllMLOC(MP) -^ BASF; 
SCOPE( SCOPE$ MUM := SCOPE$NU« + l) 
F.ND ENTEftSSUBhTNt 



SBTBLi 



/ * # * >r v * ♦ >'t * * * * * * << # * * * <t -':■ * * »: ; >r * >;< * * # ^ * >!< * # * # * * * * * # # # * ♦ ♦ / 



/* 
/■* 
/* 



LOOKUPJONLY - THIS PROCEDURE IS PASSED THE */ 
POSITION OF A IDENTIFIER JUST SCANNED IN ■ */ 
THE CURRENT PRODUCTION ( SP,MP,MPP1 ) AND *'/ 
HFTURNS TRUE IE THE IDENTIFIER IS FOUND IN */ 
THE SYMBOL TABLE. */ 



/ifUif v # % & >:« * v %■ v v * * ♦ * >:< & 'i« >:•>:= >r »: ; >>: -i' x» ■'.•■ >;< & & # # <•' -:' >>< s:< >i« >> »:< >i« #>?♦>!>* * # / 

LOOKUPiONLY: PHOC(A) BYTE; 
CC'L A byte; 
CALL SETLOOKUPO. )! 

BASE-BASHTABLE(SYMHASH) i 
DO WHILE BASE <> id', 

1 f chk$put$name(6) then 
do; 

looxup$addk^pasf; 

return true; 
end; 
ELSE do; 

call setaddhptr(0); 

bask-addrptk; 

end; 
end; 

return false; 
end lookupsgNly; 



/ * 'r * * •!- ## v * <« # >',• & >:< v V' * s|- ■'.< # # i- * * '!' V * * # >J> I' >'Vt * * * <1- / 



to 



1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
163b 
1636 
163? 
1638 
1639 
16 4 a 
1641 
1642 
1643 
1644 
1645 
1646 
164? 
1643 
164c" 
1650 
1651 
1652 
1653 
1654 
1655 
1656 



/■* THIS PrfOCEDUhE CONVERTS 
/* NUM1-.FR' IN THE PROGRAM TU 
/* REPRESENTATION. 



ft 

rrr\ 



A BCD 



••7 



f if * if if i> if $ if * if if if if if if & £ if :|. *: i;. if if H' if if if if if if jjc if $|t ^t :J: if if / 

CONVRTBCD: PROCU.B); /* A-SP/MP/MPP1 , B = POS/NFG */ 

DCL ( I .J.DPLAG.EFLAG, SELAG, A,B,N BASED PKINTNAME) BYTE? 
DCL (EXPONLOOP, EXPSIGNLOOP) LABEL; 
CALL SETLOCKUP(A). 
/* INITIALIZE VARIABLES */ 

sflag-false; eflag=tkue; delag=true; i«ij 
do j = to ?i bcdnum(j)^-0j end? 

J = P) ; EXP0N=64i /* E + 00 */ 

/* remove leading zeros */ 
do while ((n(i )• - '0') - 0); 

if i-(n+1) then goto fxponloop; 
end; 
/* load bcdnum with significant digits */ 

DO WHILK ((N(I) - '0' ) (= 9 OK N(I) - '.*); 

if n(i) = v then 
do; eflag=false; 

if i=n then goto exponloop: 

I = I + i; 
end; 

ELSE 

dc; 
do while j = and dflag and (n(i) - '0') = 0. 

EXPON = EXPON-l; 

IF I « N THEN GOTO EXPONLOOP J 

I ~ I + i ; 

end; 

if j - ( bcdsizs-l ) then goto exponloop? 

IF DELAG THEN /* FlhST BCD PAIR */ 

do; 

BCBMUM(J)-hOL((N(I )-'0'),4)j 



1657: DFLAG-KALSF; I- 1 + 1! 

1658: IF EFLAG. THEN FXPON-EXPON U ; 

1659: KNDJ 

1660: ELSE 

1661: DO? 

1662: BCDMUM(j)=hCDMUM(J) J (N( I )-'*}')? 

1663: J - J «• I! i . = I + J ? 

1664: DPLAG=TBUE! IF EFLAG THEN EXPON-EXPCN+1 i 

1665: END; 

1666: IF r»(mi) THEN GOTO EXPONLOOPJ 

1667: VND; 

1668: END! 

1669: EXPONLOOP: 

1670: IF N(I) ~ 'E' THEN EFLAG = FALSE; 

1671: IF I = (N+l) THEN GOTO EX PS I GN LOOP : 

1672: IF TLAG THEN 

1673: DO? 

1674: DO- WHILE Nil ) <> '. '] 

1675: FXPON = FXPON + 1? 

1676: I=I.+i; 

1677: END; 

1678: I=I*i; 

1679: END; 

1680: DO WHILE, I < (N + l) AND (N(I)-'0", <^ 9 } 

1681: I'-* -I,>. H 

1662: EiJD; 

1663: IF TYPENUM - RRALTYPE THEN GOTO EXPSIGNLOOPJ 

1664: /* N(I) --- E */ 1 - I + 1J 

1695: IF TYPENUM * SIGNED*. EX PON THEN 

1686: DO? 

1687: I.I- N(I) - 2DH THEN SFLflG - TRUE; 

16P6: I - I +' 1 J 

1689: END; 

1 69P: IF I = N+l THEN 

1691: DO? 

1692: CALL FknOK I 'BE')' J 






1^03 

1694 

1695 

1696 

169? 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

17J1 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

172? 

1728 



return; 
end; 

DFLAG = 0? 

DO J = T TO n; 

dflag = (dfug*10) + (n(j)-'0'); 
end; 
if 3flag then /* exponent calculation */ 

expon = expon-dflag; 
else expon - expon * dflag, 
expsignloop: 

BCDNUM(BCDSIZE-1)=R0L(B,7); /* SIGN OF NUMBER */ 

if expon > 127 then 
do; 

call ehror('ee'); 
return; 
end; 

else ecdnum(bcdsl'ze-11---bcdhum(ecd3 1ze-l)+expom; 

ene convrtbcd; 



/ ft ft ft ft ft ft ft ft ft ft ft « ft 'ft * * ft ;•,: ,;< * ; ;. ; ; ; * ,- f i; ; ^ £ ;i ,[. ft ,;< fy -;. ;.. ,;, ,; : ^ ^ £ £ jjj ^ ^ ,.. ^ £ £■£ , 

/* CONVFhTl - THIS PROCEDURE IS PASSED "a", THE*/ 
/* LOCATION OF A CONSTANT IN THE PRODUCTION */ 
AND "3" THE 'SIGN' OF THE INTEGER. THE */ 
FUNCTION GENERATES P SIGNED 16 BIT KEPRE- */ 
SFNTATIGN OF THE NUMtEri AND RETURNS IT IN */ 
AN ADDRESS VAhlABLE. */ 

ftftftftftftft^^ilu^ft^ftftftfty.:^^^;,,^^*^,;;.-^,..^^,;;^^^^^,,.^,;,,;,^^ 



/ft 
/ft 

/ft 



CONVERTI: PHOC(A,l-) ADDRESS! 

DCL (I,A,H,N BASED PltlNT'JAME) BYTE; 

DCL HUM ADDR; 

CALL SETLOOKUP(A); NIJM-0.; 

DO 1=1 TO n; 

IF (MAXINT/10) >^ NMil THEN 

do; 






17'^ 




IF (MAX'I. NT/10) - MJM ASP (N(l)-'0') > 7 THEN 


1730 




do; 


1731 




CALL ERROR ( 'IE')i 


1732 




RETURN NUM.* 


1733 




end; 


1734 




NUM=(NUri*i0)*vN(I )-"0'-) j 


1735 




end; 


1736 




else do; 


1737 




CALL RhROh ( 'IE'); 


1738 




RETURN NUMJ 


1739 




end; 


1740 




end; 


1741 




IF B - POS THEN KEl'UfiN NUM; 


1742 




IE NUM - MAX INT THEN 


1743 




po; 


1744 




CALL EKftOh('IE'); 


1745 




RETURN NUM; 


1746 




end; 


1747 




RETURN ( - NUM); 


1748 


END 


CONVEHTIi 


1749 






1750 






17 51: 


/r 


*<-*^***;^***#;fcJ^Xt *#********* * $.*.** ##**:;c*******#)5l** / 


1752; 


/* CONVEUTiCONSTANT - THIS PROCEDURE IS CALLED */ 


1753: 


/* «ITH TYPENUM SET HY THi: CALLER. THE NUMBER */ 


1754 


fa 


' MUST BE POINTED TO M "SP" IN THE PhOUUC- */ 


1755: 


fa 


'HON. THE PROCEDURE RETURNS WITH "CONST^ */ 


1756: 


fa 


NUM$T V PF" AND "c'ONST$VALUE" SET WITH THE */ 


1757: 


t\ 


' NUMbKB IN ITS INTERNAL FORM. *'/ 


1758' 


/"• 


: s;.- if if if if if if ■;; .;; * >,; .;: >> * if if ,'f if :;. if J,, if : f if if if ; ;. if if ;f :-f ; ;, )|, # >;, ,; ; ^; ; ;< ,; ; ,;; ,;, : ; ; ; ; ; % % £ % i 


1759: 






1760: 


C.OH\ 


RT$CGNST: P.rOC(M» /' ;: A=-POS,NEO */ 


1761: 




DCL A BYTE,INT$ADDK ADDR? 


1762: 




IF TYPENUM - INTKGKKiTYPE THEN 


1763: 




do; 


1764: 




I NT$ A DDK =COM V \ i'T I ( S P , A ) ; 






1765 
1766 
176? 
1766 
1769 
1770 
1771 
1772 
17715 
1774 
1775 
1776 
1777 

177B 

1779 

1780 

1781 

1782 

1783 

1784 

1785 

17b6 

1787 

1788 

1789 s 

1790; 

1791 : 

1792 : 

1793: 

1794: 

1795: 

1796: 

1797: 

1799: 

1799: 

1800: 



EHD 



CONST$N'JfHTYPF(CONST:?PTR)-INTI^ER$TYPE$ 
CONST$'P"TB*CON.S'T$PTh.+'l» 

call move( .int$-addh, .const$value(const$indx) ,2); 

c0\'st^indx-c0vst$inpx*2; 
end; • 
else do; 

CALL CONVkTBCD(SP.A)? 

CONST-fNUr.$TYPE(CONST$PTJ.)-KFAI,$TTPE; 

CONSTiPTR*SONST?PTH+lJ 

CALL MOVE( .BCDNW4 r .C0#STitfALUE(C0NST$INDX) ,bCDSIZE)J 

CONST$INI)X=CONST$lNDX + BCDSl?.i:; 

end; 
convrt$const; 



/ S> St: *f * >|: :Jc ^: -.;. * %. /: % £ >' f £ :'..- ;■,: : r & ;|. s ; ; ;|; # s «e # ;;< ;|: j{t ^ # >J: >|i »; ; >): # >;< s ; : ;)t # * if * >'f :;c sj; if if if I 

/* ENTEk$CONSTANT^ NUMBER - AFTER THE NEXT ENTRY*/ 

/* 'IAS HAD ITS LINKS LNTKnED INTO THE SYMBOL */ 

/* TABLE,. THIS PROCEDURE ENTERS THE CONSTANT */ 

/* VALUE INTO THE SYMBOL TABLE AND SET THE */ 

/* ENTRY'S "IORM" TO THE APPROPRIATE TYPE. */ 



/ tf % ififitifif-ifififif. 



ijl ;'< t'f >)« i'jt i\i )|t l|( ;j( Jf >|< t' t l £ ^< ;]t >Ji ^4 >',! >}< ?J< jj( / 



ENTI 



$CO 
CON 
IF 

do; 

C 
C 
C 
S 
END 
ELS 
C 
C 
C 



■MS$NUM: PROC; 

ST$PTR-=CONSTiPTIl-i; 

CONST$ NUM$T i PE( CONSTAT i( ) =• 



tlTEGERTYPE THEN 



CON S$ ENTRY j 



ALL SETADi)RPTR(4); BYTEPTR-8 OP 

ALL LIMITS(2)» CONST:? I N DX-CONST$I NDX-2J 

ALL MGVE( .C0NST^VALUE(C0NST$INDX),ShTBL,2) ; 

HTBL=SBTBL+2i 

E do; 

ALL SETADI?HPTH(4)i BYTEPTR = 10H OR CONSfENTRY; 

ALL LIMITS* BCDSr/K);. CONST$lNDX = CONSTiINDX-BCDSlZE; 

ALL MOV E( .C'ONST^ALl!E(CONST$INDX),SBTEL f bCi»SIZE); 






1801: 
1802: 
1603: 
1804 : 
1805: 
1606: 
1807; 
1806: 
1609; 
1810: 
1813 : 
iei2: 
1813: 
1814: 
1615: 
1816: 
1817.: 
1818 : 
1919: 
1920: 
1821: 
1822: 
1823: 
1824: 
1625: 

1.825': 
1627: 
1828: 
1829: 
1630: 
1 631 : 
1832: 
1633: 
1834: 
1635: 
1836: 



sbtbl=sbt.bl+3cpsizei 
fnd; 

END .ENTH$CONS$NUMt 



f if if if if {;. if if if if if if i,. ;J: if if if if if v if if j|; >[: -^ >[: if if + >f if >jt :;< * if if if if if if if if if if if if if if if / 

/■' ENTFH$STRING -AFTER THE "LINKS" AND "FORM" «/ 

/* ARE FNTEKED INTO THE SYMBOL TABLs, THIS »/ 

/* PROCEDURE LOADS ANY IDENTIFIER ALONG WITH */ 

/'* ITS LENGTH. (USED WITH CONSTANT STllM-i'S */ 

/* AND CONSTANT IDENTIFIERS ) */ 

fififififif if if if if t- if if if Z^H-if if •;. if if*, if if if if if fr if )fc if if if ,< i|t if if >f # if if if if if if if if if / 

ENTFR$S THING: PROC{A)J 

DC I. (A,N BASED ;•'„ *NTN AHE) BYTE? 

CALL SETLOOKUPf A)J 

CALL LIHITS(N-l); 

CALL MOVFCPRlNTNAME.SBTBL, (NU ) ) ', 

SBTBL^bbTPLi (N+l); 
END FNTFHST.RING; 



/ if if if if if if if if if if if. >\ if if if if if if if if if if.fi,. if if if if if %: ^. ;;; ;;: if i/, if if if ;-. if £ if i,. if if >f if -.f 

* ENTFK$COMSTANTiID - THIS PROCEDUKF: ENTERS * 

THE FORM FIELD OF A CONSTANT ENTRY INTO * 

* THE SYMBOL TABLE. * 

if i.- if if if & X tf if if if if if i/ if if if if if if if i.. if if if if if if if if : c >;• if if if i, if if if <. if if i,tifif if ifif j 

ENThSCONSMr-: PBGCU.B); /* A^os/NEG , B-KP/HPP1/S? */ 

dcl (a.b.c) urns} 

C-K0L(A,6K 

CALL SETADDhPTJf(4)i BYI'FPi'H-C OH OCiJSfENTli Y J 

CALL EnTFR1£TRJNG(SP^ ; 

CUNST$^N$PTH=CONST$?N$PfK-i; 

CONSTilNDX-CONSTilNDX-CCNS'i^Pi^SfZEiCONST^PN^PT.Oi 

end i:ntk$cons$id; 



00 



16^7: 

1853: 

1839: 

1640: 

1941? 

1642 

1843 

1344 

164b 

1646 

1847 

1646 

1649 

165? 

1651; 

1852: 

1853: 

1854: 

IS 55: 

1656 

18.67 

185b 

1859: 

I860: 

lc61 : 

1662: 

1663: 

1664: 

1665: 

16C6: 

1667: 

1866: 

1669: 

1570: 

1871: 

1672: 



• Jr »'.'■ $ * -, : * v J i : # v >r >'r 'v ■',• v v ^ v ^: $ '■',• =r S? * ;,'. lit # $ ;;: »;; >;: ;J( ; ;t ^: >£ >,t l(t J^ # >|< %>£*£% $ 

'ENTF-R$CONSTANTSENiHY - THIS PROCEDURE * 

DETERMINES WHICH TYPE 0*: CONSTANT ENTRY IS * 

TO fit! ENTERED IN THE! SYMBOL TABLE, AND * 

AND CALLS THE CORRESPONDING PROCEDURE TO * 

MAKE THE ENTiiY. * 



EiMTk$CONS$N!TRY: PHOCJ 
DCL IXINDEX BYTK; 
' VECPTR=VEC?TH-15 
BO CASE BXPHESsisTK(SP) J 

/* CASE CONSTANT NUMBER */ 

CALL ENTtt?CONS.$NUH» 

/* CASE IDENTIFIED CONSTANT */ 

C A LL EMTR$ CON S$ 1 U ( POS , SP ) ; 

/■* CASE SIGNED IDENTIFIED CONSTANT *•/ 

c all mrM cons $id(n e<; , s p ) ; 
/.* case constant str . ng */ 
dc; 

CALL SETADD!.PT!;(4); i<YTE?f R-16H G.J C0MS<ENTrtY5 
CALL ENTFR$STH1NG(SP); 
CONST $PN$PTR-CONST$PNiPTR-M 
C0NST$INDX-CONST$lNDX-CONST$PN i T SIZF(C0NST$P\!'V 

siini 

END! /* OK CASE CO.NST^TYPE */ 
END ENTF^COfiS^NTKY; 



lie) 






!>N'n.>CPLX^TYP - THIS PROCEDURE IS 
CALLED TO E'VfKR Trf i "LINKS" AND "FORM" EOR 
THE 'COMPLEX TYPE' SYMBOL TABLE ENTRIES. 
NOTE': 5 THAT THIS ENTRY NEVER HAS A PilNT- 






1673: 

1974: 

1875: 

1676: 

1 8:77 : 

18?fa : 

1679: 

18b0 : 

1£61 : 

i862: 

1883: 

1664; 

1665: 

1886: 

1687: 

1663 : 

1669: 

1690: 

1891: 

1892: 

1633: 

1894: 

1695: 

1696: 

1 S9? : 

1698: 

1699: 

1900: 

1901: 

1902: 

1903: 

1904: 

1905: 

1906: 

1907: 

1908: 



/* 



NAME ASSIGNED. 



*/ 



/ >!•' >)' '■',' # >'t '!' >!' ■■'•■•• '.• •.• >!• & -!' '.- i- -•'.• >;- -,' * * $ >? >',- ij; $ * .-;; :'f ■■!■ >;; j|< ^. >> & # >i= * >!* v # * * >!' ♦ >(< * # / 

ENTR*>CPLX$TYP: FKOC ' A ) ; 
DCL A BYTE," 
CALL LlMlTS(b); 
BASE.APTKADDR-SbTfii,; 
ADDhPTi" = 0000H; 
CALL SETADDHPTR(2) ', 

AirhPTH-PRV^SHTHNThY; 
Pf<V$SBTfEN'i , iU'-P,ASE; 

call setaddhptru); 
byts?tr=a; 

SRTBL=SBTBL+5i 
END ENTR^CPLX^TYP; 



/* 
/'* 
/* 
/* 
/* 
/* 
/* 

/'* 



vv #.&& tr K* & ^« & >I* vvv^ ^i* ^^'*; ; :r ^'^'^^^N'^'^^^sl-^o^rJtats^^'^'t'^^^r^Jl 1 



ENT 



a is 

LLE 

1 . 

2. 
3. 

CA 
INK 

TH 



TR<?T 
D BY 
SET 
EILE 
POIN 
LLS 
S" A 
E AS 



YP 

TH 
TYP 

TY 

nu 

ND 
30C 



- THIS HliOC.E0U.KK IS 
E TiPL" PrtfLUCT I0-4S : 

i: 

PK 

TYPE 
RiCPLX$TYP TU SET UP ITS 
"i'Ontt"., THEN IT SETS -A POINTED 
IATED COMPLEX TYPE. 



IT 
"l 
TO 

:;= )',C & -4 •;;. * ;|< $ «>;. £ & # ^; jjt ;^ * >;-. £ $ # # £ # -! ^ . jj . -^ <- ;•; ^ ;<; ;;; ,[, £ % K . %};%■.•■# % 



*/ 

*/ 
*/ 

>•;■/ 

*/ 
*/ 

*/ 



F.MfRiSTKmP: Ph0C(A)5 
DCL A BYTE; 
CALL ENTttiCPLX$7YP( 
CALL LlHlfS(?); 
CAtI SETA0r:HPT,{(5); 
AI.'Dh?rR-TiPE$LOCT; 
SPTRI-SBT^L+2; 
TmHOCT-MSE; 



A) 






1.30 J: 
1910: 
1.911; 
1912: 
1913: 
1911: 
1915: 
1916: 
1917: 
1918: 
1919: 
1920: 
1921: 
1922: 
1923: 
1924: 
1925: 
lt*26: 
1927: 
1928: 
1929: 
1 930 : 
1931; 
1932: 
1 933 : 
1934: 
1935: 
1936: 
1937: 
1936: 
1939: 
1940: 
1941: 
1942: 
1943: 
1914: 



END JNTHiSTRiTYPj 



/***. 



;.;;•;;.;:.**: 



- 'fi ',' '•','• >'.• v >'.• v -» ; ^* -*. : & & # ^ ^i 1 ^ ; v 



*** 



ENTFFi!?PAH.«hFTER<TYPE - THIS PkCCEDURR 
UTILIZES 3 BYTE OF CODE FOh ,F*CH SUhI'OUT- 
INK PARAHFl'FR THAT WAS RECOGNIZED AND PUTS 
THF FOLLOWING [NiOh'MPT'lON IN THE SYMBOL 
TABLE: 1. TYPE OF PARAMETER 

2-3. RELATIVE LOCATION OF PARAMETER. 



t i'j. # # £ >;< j;* ;J; >Je & *;; >;< ;;; ;;;; 



>!< & ;',i 3',: :|; >\; ;Jt >|c <; :' t i jji ;Jt ;;, ^c ^:^s )J« :J< a;*. :); ;J; >|; )(t # >J ; >£< ^ # # # / 



ENTR$i>RMiTfP: PROC; 

APTRADDR - P4RAMNUNLGC *■ 15 

ADDHPTH = SBTBL? 

SBTBL - SBTBL -* A* PAH AMMUM - 

BASE = LAST$Sb'TBF,$ID» 

DO WHILR PARANNUM <• 0; 

CALL SETAuDRPrh(4); 

TFMPBYTF - PYTFPThJ 

APTRADDR - SbTbL; 

BYTEPTR = TEMPBYTE; 

SBTBL = SBTBL + 1} 

CALL SET^PAST$Pfi(7); 

TEMPADDri = AEDitPrhJ 

APTKADDR = STiTPLJ 

ADDRPTR -~ TEMl'ADUH;. 



3; 



SliTBL 



>BTB; 



4 i 



CALL SFTADDhPTi'(2); 
BASF = ADDRPTHJ 
PARAM^I = PArtAMNUM - 15 

end; 

apthaddr -; pah amnumloc ; 

SBTFL - SdI'PL + 3 ; -{ BYrXPi"^ 
FND ■ FNTHiPi M^TY^P : 



1) 



•4 



1915; 

1946: 

194V: 

1948: 

1949: 

1950: 

1951". 

1952: 

19 53 

1954 

1956 

1956 

1957 

1958 

1959 

1960 
'19C1 

1962 
196;6 
1964 
1965: 
1966 : 
1 967 : 
1968; 
1969; 
19?0: 
1971 : 
1972: 
. 1 973 : 
1974: 
1975: 
1976: 
1977: 
1976: 
1979: 
1980: 



/ ;'.; ;;: >,'; JJ :\i :',: :;. ;;. ;;< ± .% ^ ::;. ;;;# ;|; :|: ;,; j|: >'.. v :|; :\i -:,; if -.;; ;|; :;. >|; j'.: .-|t & .;: i\i :\: ;|: :';. ■',• >,• >i: if >f * >'. : ■'.'■ >'f ■? # 

* BU1LT$IN(PARAMETER - THIS PROCEDURE ENSURES * 

* A PROPER MATCH UP PETWEEi* THE SUBROUTINE'S • 

* FORMAL PARAMETERS AND THE CALLING ACTUAL * 

* PARAMETERS.- * 

& * # if if # ;;, <; * s(c >Jt »|S £ $ :',( jf: £ « >J: if * >!' * * * * v * * * # * ♦ * * # * # >!• * * #'# * * * * # / 

BUILTilNtPARM: PROCJ 

apthaddr - p.'.l.t.nunloc ( sp ) j 
base --■• aptradlr; 

IF BYTFPTk = 1-3H THEN 

DO; /* CHECK FOR INTEC-cR OR rtEAL INPUT */ 

IF NOT( U'SHU (BYTEPTR AND FORMMASK ) ,3 ) OR rfAH$ENTRY)» 

(FORM$FIELD(SP) AND 7FH ) ) 

OR ( (ROR((BYTEPTrt AND 7ii-!H),l) OR VAK$ENThY)= 

(FCHM^FIELti(SP) ANT 7EH))) THEN 

cpll error ( 'ip')? 
else call gen}addr ( farm, prt$ adds (sp) ) 5 
end; 

ELSE DO? 

IF BYTEPTR = 0Ki-H THEN 

do; 

IF SHh(F0i:M$FIELi)(SP),3) = P3H THEN /* CAN'T *tB ■'*'/ 

CALL ERROR! 'IP'); 
ELSE CALL GEN^ADLRi PAltM, PhT $ADDR ( I3P ) ) ? 

end; 

ELSE do; • 

TE NOT((tHLi « HYT l *PTR AND FOrtMMASK ) ,3 ) OK VAHiENTRY) 

FOhM$FIELD(SP) ) ?!(EN 
CALL ERROR ( 'IP'); 

ELSE CALL GEN$APDR ' PAhM,PKT*Abi-R(SP) ) ; 

fnd; 
end; 

P?RfNUMLOC(SPt>.') - P-ARMIUHLOC(SP) * li 

IE SIiF'FOi,M<FIKLD{SP),V< THEN C «LL ".ENE4 A f E( LODI ) J 






1961 
1982 
1983 
1964. 
1965 
1966 
1 96? 
1969 
1969 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
199B 
1999 
2000 
2001 
2002 
2005 
2004 
2005 
2006 
2007 
2006 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 



E'JD BUUT<INiP-AKMj 



/ if * j,V }•{ * $ *<>,•« * $ # * * v -I' * * * * « * * * v * * * * * * * * * * >r * * * * * * * * * ■* * * * 

* ASSIGNS-PARAMETERS - THIS PROCEDURE ENSJRES * 

* A PROPER MATCH UP BETWEEN THE SUBROUTINE 'S * 

* FORMAL PARAMETERS AND THE CALLING ACTUAL * 

* PARAMETERS. * 

jjl >'? if £ >;; !{< >;■ $ v =!• ■> H< >'p «' * * * >'.' * << * '. ; * v * >'. ; # * V # * * << * * <■ # * * : '' "* * * fc •> * * * / 

AS31GNSPARMS: PROC? 

IF SIGN^FLAG THEN 
DC? 

IF F0hM$KIELD<MP-3) * flU 1 1.1$ I N$FUNC THEN 
CALL BUILTilN*PAPM» 

end; 

ELSE IF E0RM>FIELD(Mp-2) = RUILT$I N^FUNC THEN 

CALL BUILTi'. NiPArMJ 
ELSE DO! , 

APTRADDH = PAHMNUMLOC ( SP ) ; 

BASF '- APTPA'PHI'i 

IF SHR(PYTb?TR,?) THEN 

DC? 

IF (MTEPTti AND 7FH ) = FOi;M$Fl LLD( SP) THEN 
/"■• THIS IS A VARIAELF. PAH AME'TfcK */ 
CALL GEN£ArDh(PAftMV,PRTiAIiDii(SP))» 
FLSE CALL fcfci'OH 'IP')> 

end; 

else t)c; /* this is a value parameter #/ 

IF (BYTEPTn = EOIM?.pIELI)(SP)) 

CH (EYTEFT? - { EORM> Fit LD(S ?) AND ?FH)) THEN 

CALL GK:N^ADDH(PAHM.PHT$A1)D'((SP) ); 
ELSE CALL Fi.iltOR-( 'IP.'); 

end; 

PAFMNUML0C(SPt-2) = PARMNUMLGC ' SP ) r 3; 
hEAD$PA!t-S - TRUE; 



2017: E;4D| 

2018: Ei!D ASSIGN^AHMS; 

2? 19: 

2*520: 

2021; / * *•■ * *•' * "•■ * '•' * * '•' * * * * '•* : ' : * t?' 1 '** * * •■• * * ^ ^ * * * * * '•'•' ; ' : * * * ***#****/ 

202~2: /* LOOKUP$IDENTlFIEi< - THIS PROCEDURE IS CALLED*/ 

2023: /* WITH 'SYMHASH' AND PhiNTNAMF SET. IT WILL */ 

2024: /* KETURN TRUE IF THE IDENTIK1EK CAN PE FOUND */ 

2025" y^:^'^_>^^'«i^'^t;!C*^6Jj£.K*>J«"^i'.»}(*Sf»ii'<;.?S«sts^s>i!Lsi:.i5«»is ^t sS'.^'i^^c^i^^c >i^#^^fX«.iS!'S 4 SC'»St»X->l-»?>C e ^-'J'"y5 

2026: 

202?: LQOKUPilDFNT: PRCC BYTE; 

2026: B/SE=HASHTABLE(SYMliASH) ; 

2029: DO WHILE (EASE <> 0) AND (SBTBL > SCOPE(SCOFF$NUM) ) 

2050: IF CHK$PHTiNAMK(6) THEM 

2031: DO? 

2052: LOOKUP$ADBrt = P.ASE; 

2033: HE TURN TRUE? 

2034: FNDi 

2035: ELSE DO! 

J 2056: CALL SETADDKPTR {0 ) 5 

2037: BASE=ADDRPT5m 

203b; END; 

2039: END? 

204?: RETURN FALSE? 

2C-11: END LOOKUP^ I DENT J 
2042: 
2043: 

V # 4 4 • / v *$ >V *!< '•',- & K 'I 1 & *!* J i* >!< A i ^ ^ **■■ '!■ A v & # •!' *> 4 J '* X- ; i ; v ^ >'* <* X' *i* v v & £ 'I* *** *<* '«* ; t *»' '•* *•* ^ *»* *i* J !' / 

2045: /«! LOOKUP$PkINTNAM£$Oiaif - THIS PROCEDURE SETS */ 

2046: /* THE "SYMHASIi" A^D CALLS LOOKUP$ IDSNT TO */ 

2047: /* DETERMINE IF THE FNTRY IS IN THE SYMBOL */ 

2048: /* TABLE. THE APDRFSS OK THE PiMNTNAMK IS */ 

2049: /:*■ PASSED AS ft PAhAKFTEI. IE THE ENTRY IS •'- / 

20!\0; /* FOUND, TRUi IS R LIlHNEi) . */ 

20bl : /%■•• >'■■•■• •'.-'■',<>'{•'.■>.• *••,*>'.'>'.• -.'■•f >'.- •.• '.'■• =.*> ■>'. : ■'• <■■-'.••»!« ■'.• -!'>'.• s ; i ; >;■'',:•;< ■',•■>'.'■ i *■,>•.• ■*-.''-v>v>'.-%>i<ib/ 

2052. 



j 



2 53 ; 

2054: 

2055: 

2056: 

205?: 

20 5d: 

205'J 

2060 

2061 

2062 

2063 

2064 

2065 

2066 

£067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076: 

2077 

2078 

2079 

20*0 

20 til 

2082 

2083 

208 

2085: 

201-6 

2087 

2083: 



LOOKUP^PN.AME: PROC(A) BYTE; 

JCL A ADDH; /* A DDK OF PR I NT-NAME */ 
DC I, (R,N BASED A ) MTS5 
HASHCODI--P; 
DO B=l TO Ni 

hashcode-=( hashcolk + n'b) ) and hashf-ask? 
end; 

SYMH.«SH=H ASH-COD Ki 
PRINT.NAME=AJ 

RET UK N LOOK UP$ I DENT? 
END LOOKUP-?PNAME; 



/ £ k >;<>!< >!• * £ 'A- * s!« * >i< * *- # >J * '■'? •'■• '•'? >l ; * >o * -> * -i* *•".'' =r •!< % "r >l : ♦ * '!•' ''.' W>rr^# •!•' * *' >',< / 

/v STORE$CONSTANT IDENTIFIER - THIS ROUTINE IS */ 
/* CALLED *'ITH Pit I NT NAME S ET TO LOAD AN */ 

/* IDENTIFIER IN THE 'CONST... .T VALUE' VAHIABLt.*/ 



/••• 



irttf** 



; ;|: j 1 : # ;;: p;t ;J; £ 



,: ^: i'/i ;',; ;V ;[; £ .> # j, ;V s',: :|t :I« ;Jc ;|. jj: >;; # >V. / 



STOHEH'ONST: PrtOCJ 

DCL H BASED PRIhTNAMi 

CALL SETLOOKUF-SP); 

C£LL MOVE(PRINTNAMF,.CONST$VALU£(CONST$INDX),(N+l) ); 

C0NST$INDX = C0NSTMNDXHN»1 )i 

rONST^PN$H/»SH(CONST$PN^PTii)--SYM«!'3H; 

CUN:ST$PN^SiZE0CONST$PN'?PTH)-NH ; 

CPU ST i P-Ni'-PTR>' CON ST:?PN$PTrt + l » 
END S m OhE^CONST; 



byte; 



!< # y,: :|. .,■< i,. -■'/. A- v v 'i 8 ; ! ; 



; # ;;< ;;. i[. ^; ^: ^: ;|: i^ >;: # jj; j'- >): >? ft * >? >Jt >|; <; s|t J(: l|c 



* subranges-error -• this procedure is called 

* in the event of an impropek valje im a 

* subrange. 



V V W>.< W >.'•:.< #v • 



*>:••**.* 



■ ;? 3 4 ; .*'. :\: ^i .;: ... ;;: >,; >;; s;; ;|t ;,■ 



*'♦ **'*♦?:; / 



2 (■■80: 

2091 

2092: 

2093; 

2094 

2095: 

2096: 

2097 

2098; 

2099: 

2100: 

2101 

2102: 

2103 

2104; 

2105 

2106 

2107; 

210B: 

2109 

2110: 

2111 

2112 

2113: 

2114 

2115: 

21 16-; 

2117: 

2118 

2119: 

2120 

2121 

2122 

2123; 

2124 



SUB: *Fi'" OF ; ?FOC> 

CALI ERROR ('IS'); 

SUBi^'fyPE(SUBR$PTR)-lNTFGEH$TYPi; 

SUBk$VAL(SUi5h^PTii) : =000'/H; 

end subr$frror; 



/ * ff * * * * * * * * * * >',< * * 4 •'.= * * i',- v v * * * * * * * * * * * * * * * * * X' * * * j J. >;. # »;< # 

* ORD$HIGH$LOW$CHECK - THIS PROCEDURE IS * 

* CALLED TO ENSURE THE SECOND SUBRANGE VALUE * 

* IS GREATER THAN THE FIRST. * 
j;. >> .'{ * •-',■ ■',■ * * iji * * /,; * v. <s * =;: <; $ y,- * »;= * * * •-;■ a 4= & * * £ •.;< y.; >|c >;< ;|: >^ ;;< # # Jf •.;■. % >;; >;; >•» y,< / 

ORD$HI$LOV$CHK: Ph-OG > 

IF SUBR$PTit = THEN RETURN? 

IF SUBh$TYPE=SUBR$T](rE(l) THEN 

JF SUBR^VAL > SUBK$VAL(1) THEN RETURN; 
CALL ERRDRCIS ) ', 

END ord$hi*low$chk; 



y # * * '* * * * * * * =;•• *< * * * # * * * >.. y,< y,; # y,< « ; ;-. y ; >; : 3 j; * * y,< »;; y, ; * # y, t * ;|; * .;< y,: y,< .;t £ # $ :je 

* SDBhANGE$lNTEGFh$HI$LC^CHECK - THIS PROCE- * 

* DURE IS CALLED TO ENSURE THAT BOTH SUB- * 
RANHE ELEMENTS Afc'B OF THE SAME TYPE, AND » 
THAT THEIR VALUES DO NOT EXCEED THE MAX * 
INTEGER VALUE. * 






****** **• * * * >;< * ^ ,t *,; v & :•< £ >;< # >? * -:.i :',i ;;: >J # ^< $ ;•; if >;: $ ; ; t jt $ $-$ y,; y, c iji y.i $ )<c ,; t <i / 

SuHlNTtHLiCHK-: PROC; 

if subh$?.tr-0 then return? 

if subr$type <>' subi.<type( 1 ) then 

do; 

call supper}. or? 

return; 
end; 



2125: 

2126: 

212?: 

2126; 

2129 

2130: 

2131 

2132: 

2133: 

2134: 

2135 

2136: 

2137; 

2136 

2139; 

2140; 

2141 

2142 

2143: 

2144: 

2145.; 

2146: 

214? 

2148: 

2149; 

2150 

2151 

2152; 

2153 

2154 

2155: 

2156: 

2157 

21,58 : 

2159: 

2160; 



IF SU!i'>$VAL < 32?6>: AND SJBR$V«L(1) >327ri7 THEN 

T )o; 

lNTKGE!i?DIFF «. SU BR$V AL+ ( -SUBR$VAL( 1 ) ) + 1 J 

ketu«n; 
end; 

if subr:?val > 32767 and subr$val(1) < 32768 then 
do; 

CALL SUBR$F:hROKj 
RETURN} 

end; 

ip subr^al < 3??6fa thfn /'* both positive */ 
do; 

IF(SUEhiVAL-(SUBH$VM.(l) + l)) < 32768 THKN 

do; 

integ'kr$diff=su»k$val-(subk£val(1 ))*\\ 
return; 

END; 

CALL SUflR$ERROR5 

return; 

END? 

ELSE /* BOTH NEC AT I VE */ 

IF ( - SUBh'$V*LU)-( - SUfiR^VAL ^1)) < 32768 THEN 

do; 

integkr$diff=( - surh$ v a l( 1 ) )- ( - su bit $v a l ) + 1 j 

return; 
end; 

CALL SUBR$ERhOR5 
END SUB$INT$HL$CHKJ 



/ * * * * * V * * =:! * * ;.: >je * * >;: >,: i\: ;;: * if * if if if & if if *. * * ^' >i- * =".• if £ if V fc if * * if * >S if * « / 



/* SUBFANGE$IDENriFEi.$PROCEDURE - THIS ROUTINE 
/:; ' IS CALLED TO DETERMINE THS OFFSET ( NUMBER 






OF ENTRIES IN A SUBRANGE ) AND fhE TYPE OF 
SUBRANGE, GIVEN THAT THE SUBRANGE TYPE IS 
A NAMED IDENflFItK. 



*/ 

*/ 

*/ 
*/ 



2161 : 
2162: 
2163: 
2164? 
216b: 
2166: 
216?: 
2166: 
2169: 
2170: 
2171 : 
•21.72: 
2173: 
2171: 
2175: 
2176: 
2177: 
2178: 
2179: 
21&0: 
2181 : 
2182: 
21 Ms 
216-3 : 
2185: 
2186: 
2187: 
2188: 
218 -3: 
21Stf : 
219) : 
2192 
21 93 : 
2194: 
219:",: 
2196': 



;- * f.< ■:■ i> 1.. >;: :;- *f it :;: tf i,i j(; if 



•:,:>;: :\H:i 



:**:;i ;;;* *>;;; 



: >;; ^( ; 



V i,-* V -.- >.* >.• '.* V 



SUBUD$PROC: D HOCJ 

CONST£PN<PTR=CONST<PNiPTR-i; 
C0NST$INDX=C0NST$lN0X-C0N3T$PN>SIZE(C0NST$PN$PTiO; 



PBINTNAME^ 



.■CONSi'iVALUEi 

1 i Li t O / .' 



constants); 



SYNlASH=C0N$T$PN^HA.$.<{C0N3T<PNiPTR)? 

IF NOT LOOKUPilDfNT THEN CALL SUBR^KRROR; 

els fj u.? /* found constant identihrk *■/ 
b/se=lookup$adhh; 
call setal)drpth(4); /* points to forfm( byteptr ) 

SUBR$FOhM^-BYTiPT!i; 

IF SUBR$FU.hM <}> fr'?H AMU (SUBR$FOi;M AND FORMMAS 

TKFN CALL SI! PR $ ERROR ; 
ELSE do; 

IF 5'U'BK$FORh - f'V'H THFN 

do; 

SUBh$TYPEiSUDRiPTR)-0RD$TYPE; 
. CALL oE'TADDHPTi (6) J 

$UBR$FORM-=BYTEPTR; /* LENGTH OF P. NAME */ 

CALL SETALFHPTK{7*-SUTiR$F0RM); 

SUBh$VAL(SUBi<tPTK)^i)OUBLE(BYTFPTR)i 

CALL SETADDliP'ih(? + S'JiiR$F0HM) ; 

SJB$TYPiAEDl<(SUBH$?nu-ADDKPT|{; 

CALL OHDtHULOW$CHK; 
END;' 

else ro; 

DO VIII LF, ( (,Sin.(3UBRii'OriM,o) AND 311 )=0); 
IF 5HR :SUBR$F0Rli I 5)-K::() THEN 

IF SIGNVALU = POS THEN S IGNVALU^NRG i 

ELSE S IGNV.AI,li=POSi 
CALL SETAiiDRl'TR(6); 
S-UBh^'OHM^BYTEPThii 
CALL SKTADD1 -PTh(V + SUHR$ K)PM) ; 



*/ 

/ <> CONSfBNTHY 



IF N OT 

do; 



LO0KUP$0NLY{APTRA^DR) TP EN 



-J 

CO 



21 97: 
2196: 
2199: 
220?: 
2201: 
2202: 
2203: 
2204: 
220b: 
2206: 
2207: 
2208: 
2209: 
2210: 

221 1 ; 

22 1 2 : 
2213: 

.2214 : 
2215: 
2216: 
2217: 
2218: 
2219: 
2220: 
2221: 
2222; 
2223: 
2224: 
2225: 
2226: 
2227: 
2228: 
2229: 
2230: 
2231: 
2232 : 



CALL SUB!<$BKnOI<; 
SUIih$PTh-5!IBM$PTh + i; 

return; 
end; 
ELSE do; 

BASE-LOOKUP$ADDi<>. 

CALL SETADDflPTH(4)i 

SUBiCvFOhM-BYTEPTh? 

end; 
end; 

IF (S}lh{Sim<$F0ilM,3)AND 3H) - 2 THEN 
DO? 

CALL Silfli..U'M>OK; 

SUBh^PTH-SUbH$PTiHl ; 

RETURN! 
EwDi 

/* HEHE WE HAVE EITHEK AM INTEGEK OH CHAP 
IF (SHR(SUT>tt$F()hH,3> hHh 3H ) = 1 THEN 
DO; /* INT.'UK *■/ 

CALL SETADDHPTH(6) ; 

SU8U$F0hH-MTEPTR| 

CALL SFTAIi];hPTH{?«-SUBh$FOKM)i 

IF SIGNVALU = NEG THE'i 

SUbR$tfAL(SUBR6PrR)= - ADDftPTHJ 

ELSE SUBh$VAL(SUBi<f PTI:)*-AI)D"PTh; 

SUBH$TYPF(iiUtil$?TH)-IHTPGfH$":YPE; 

CALL SUh^lNT$HL$CHK; 

end; 

ELSE 

iu,; 

CAL1 ">?T.M)I>::PT.<(:5); 

SUBK'?EOHM---i;n'EPTH; 

CALL SEf : ALD.iPTri(7-»SU.^h,<>>'0frHl; 

H BYTEPTtt <> 1 THEN 

DO: 

CALL SU3f(i?H!(CH; 



*/ 






2233: 

2234: 

2235: 

2236: 

2237: 

2233: 

2239: 

2240: 

2241 : 

2242: 

2243: 

2244: 

2245: 

224 6: 

2247: 

2248 : 

2249: 

2250: 

2 251: 

2252: 

2253: 

2254.: 

2255 : 

2256: 

225?: 

2 256 : 

2259: 

2260: 

2261: 

2262: 

2263: 

2264 i 

2265: 

2266: 

2267: 

2266: 



su'3is'i?i , -h--suBiiiP- , !;»+i; 

Hi TURN-; 



END.j 



CALL SFTADBhPTR(S>SUBh$iOhM) j 



.{EN 



IF BYTEPTR <41Ii utt MXtt-iH ? sah Ti 

call suhh^khhor; 
flsf: do; 

SUBItf V AL{ SUBk$PTR i-J)OUfcLF( BYTEPI t(-4iH) ; 
SU3R$TYPE(SUBh$PTA)=CHAR$TYPSj 

call ord$hi4low$chk; 

end; 
end; 
end; 
end; 
end; 

SUB'jii.PTh*a-U-BH4P.T ; :t+i; 
END SUE^ID^PRac; 



/ *S ; 1 ; »:< *'Jp ><• -i" '«!•• * >'■< >> fc £ -.■ # # -'.■ i;, -t !,<■ v *;■ k -I' *-;-:> * * >'/• *.- <; <■ ■'/■ £ v * * '■/■ >t if * # •» * # # * / 
/* SUBRANC.E^CASE - THIS PROCEDURE t3 USED TO */ 

/* UFTEkMINE THE DUMBER OF ENTRIES IN A SU BkANGK*/ 
/*<#>(< * * *< # * * ♦ <■ * * « * * * '? -;• * * * >:• * * # * * # * * * »> * * * 4 * * * * « # -t * * * # * / 

SUBRlfCASE: PftCCI 

■signvulu-pos; 

do case express $stk( mp); 

/* case const number */ 

do; cons?$ptk=const.$ptk-i ; 

IF CONS'f$NUM^T^PE(CONSTipTR)-Kf':AL$TYPE TiiE'^l 

do:. 

CALL SUBHjEKl-.OH; 

CONLT$INl;X = CONST?lNDX--i'CDSIZK; 

end; 

ELSE 

DO? /' ;; iNTblOF.H TYPt */ 



CD 

O 



22 69: 
2270 : 
2271: 
2272: 
2273: 
2274: 
227a: 
2276f 
2277: 
2278: 
2279: 
2260: 
2261: 
2262: 
2263: 
2284: 
2265: 
2266: 
2287: 

2-286 : 
2269: 
229Pi: 
2291 : 
22P2: 
2293: 
2294 : 
2295: 
2296: 
2297: 
.'•296: 
2299: 
2300: 
23feil : 
23(?2: 
2-303: 
2304: 



CO 'J 
CAL 
SUB 
CAL 

end; 

S.U'BRlPT 
END. 
/* CASE 
CALL SUB 
/* CASE 

do; 

SIGNVA 
CALL S 

end; 
/* case 
do; 

CONST 

CGt!ST$ 

PUNTN 

IF CON 

CALL 

ELSE 

DO; 

BA 

CA 

IE 

Ft 



L MOV 
R$TYP 
L SUB 



DX-CONSTfINOX-2; 

E( .COMSTfVALUEfCONSTSlNnX) , . SU Bh$ V At( SUBK$PT'K) , 2) ,* 

£(SUBHiPTft)-:HTEGEHiTYP^:; 

i(NT$HL$CHK; 



rt=SUBR^PTH+i; /* NEXT TO EILL */ 



I DENT 
$ID&P 
SIGNE 

LU=NE 
UB^ID 



CONSTANT V 
HOC? 
D IDENT .CONSTANT */ 



G 



$PhOc; 

CONSTANT STRING * ./ 



$PN^P 
INDX- 
AME=. 
ST$PN 
SUBK 



SE=PR 
LL SE 
BYTE 
CALL 

SE 

do; .' 

SUB 
SUB 
CAL 

end; 



TK=C0NST>PN>PTJ<-1 ; 

CONST$INDX-CONST$PN$SIZE(CONST$PN$PTR); 

CONSTiv*LUE(CONST$lNDX); 

$SIZL{CONST*PN$PTK) O 2 THEN 
4 E.H-6 OR ; 



jntnamf; 

TADDRPTR(l); 

PTR < 41 H OR BYTKPTR > SAH THEN 

SUBR$KhaOh; 



R 4.'/>L(S J Bi^PTR) -DOUBLE ( BYTEPTR-41H ) 5 
h<TiPL(SUBhiPTh)-CHARiTYPE; 

l ohu^hiHow^chk; 



end; 

SUEH?PTR-SUBR$PT.t + l; 

end; 



2305: EWE? /* OP CASE EXPRESSES i'K (MP ) */ 

2306: END SUBCASE; 

230?: 

23f6: 

2310: /* ENTFR$SUBRANGE$ENTRY - THIS PROCEDURE IS */ 

2311: /* USED TO ENTEn A SUBRANGE TYPE ENTRY IMTO #/ 

2312: /* THE SYMBOL TABLE. THIS SYMBOL TABLE ENTRY */ 

2313: /.* RAS NO PRINTNAME ASSOCIATED WITH IT. */ 

2314: /***!:••.** * * v * <; * * * * * * # >;. * -.;<. * A # :|; * # <: i;-. * $ * £ £ ,; t 5 ;< >; ; ^ *: ,; ; ,^ # ,; t £ ,; ; i; , £>;<$/ 

2315: 

2316: FNTR$SUfc$NTRY: FROC; 

231?: TYPEUOCT=S1jP6L; 

2318: CALL LI'MITS(14); 

2319: VECPfR*VFCP?R-li 

2320: CALL SUBCASE; 

2321; VECPTR=VECPTB-i; 

2322: CALL SUBR$CASE5 

g 2323: CALL ENTR$CPLX $TYP( SI»L{ SUBfl $TYPF, 6)0R 0fK)J 

h 232.V: CALL SETADDRPTRf 5) ; 

2325: IE SUB.1$TYPE = i MTEGEK$fY P£ THEN 

2326: ADDHPTh-.BUILT^lN^TBI.; 

232?: IF SUBR?TYPE=CI(AR$TYPE THEN ADDRPTH- ( . K UI LT*I N$TBl-»23 ) 5 

2328: IF SUBR $T YPB=ORD<vT YPE THEN ADPR PTR = SUB$''h PiADDK J 

2329: CALL S ETA DDKPTR ( V) ) 

2330: ADDHPTR=SUBH$VAL(1); 

2331; CALL SETA DDHPTR ( 9) I 

2332: ADDHPTR*SUBJ<$VAL{ 

2333: CALL SETADDRPTR ( 11 ) ; 

2334: IF SUBR$TYFE-I NTKGFi'i T't P£ THEN /* RANGE TO 64K */ 

2335: ADDRPTR = INTEGEh$DIFF; /.* MAY BE GREATER THAN 3276? *> 

2336: ELSE 

233?: ADLRPTPM(SUBH}VAL-SURR$VAL(1))-U); 

2338: SUBR$PTh=P; 

2339: SBTM.-SBTBLU0; 

2340: END FNTH<SUB$N'fl( i', 



00 



2741: 
2342: 
2343: 
2344.:. 
2345: 
2346: 
2347: 
.2348: 
2349: 
235P: 
235i: 
2352: 
2353: 
2354: 
2355: 
2 356: 
2357: 
2356: 
2359: 
2360: 
2361 : 
2362: 
2363: 
2364: 
2365: 
2366: 
2367: 
2369: 
236 J: 
2070: 
2371: 
237/d: 
2373: 
2374: 
2375: 
2376: 



y/i'iiW'Sv J*,; if if Yf if if if if if <; if if if if if if :\. if if if if if if if if >f if if if if ; ; j;< % if \iifi,;if if if if j(< jje 

* nfPF*EH:iOH - THIS PROCEDURF IS CALLED IN THE* 

* EVENT OF AN INCOMPATIBLE TYPE. * 

>;. & ^; ,\i >;. ij; >;» ;|: j*,4 i\t i\i i',i i',c i',\ i\i i's ;;; }[: :>i i\ fy ;;* # # )J< ,' 4 i :\t i\t >Jc :\i ;\c >\i ;V i\t % >;. :Jc ;J; % ;£; >^ >** sji jje sjt ^t )Jt sjc / 

TYPE$EKhOfi: PHOC? 
ALLOCATE-FALSE; 

CALL ERROiu'IT'); 
END TYPt$ERRORJ 



. / * * # * * # * * * * A- * * * * if X< * * * * * * * :;-<<** s|: ^: * : * * X: if if if * * if if if «******/ 



/* 
/* 
/* 
/* 



ALLOCATE OFFSET - THIS PROCEDURE IS CALLED TO*/ 
DETERMINE THE NUM0FR OF DYTFS ,?2QUIhED FOR */ 
STORAGE OF A VARIAPLS OF THE TYPE GIVEN IN */ 



THE PARAMETER 



Tiii-: VARIABLE'S ALLCjQTY 



AND ALLC^FORh ARE SET UPON RETURN. 



*7 



/ * * V * 'I' v >!< * !'.= << * if * >:• if if * X; <' * ft ft * * * X: -f ft ft * ","- * * ft 'ft * if if ft if :f ft ft ft ?;. ft if if if / 

ALL'C$OFFSET: PROC(A)! /* TYPE^LOCT */ 
DCL A addr; 

DCL ULLC$FORM,b) H\Tfi5 
BAS '£=...* J 

CALL SETADDRPTR '4j \ /* POINTS TO FORM OF TYPE */ 
ALLCfFORh- BYTKPTR AND FORMMAbKi 
IF AT,LC$FORM O T m.$ ENTRY AND ALI.C$¥OhM <"> TYPEDCLE THEN 

DO' 

CALL TYPEifcKROR) . ' 

AT.LC$-OTr=l» 

ALOCbASICTYP-^, 

itE'TOHN.r 
END? 
DO WHILE{ (SHR(BYTEPTh f 3.)AND FOhMI-^K) -7 AND ULC$ J'OfcM=TYPE$£NThY ) J 

CALL SET$PA^T$PN(7):; 



27.77: BASf>AEDfl?TH! CALL S ET ADDH PTR ( 4 ) ', 

2378: ALIC$FCRM-I<YTEPT!< AND FOHMPAS K-; 

2379: IF ALLC$FORM <"> ft PEiENTh Y AND A LLC $ FORM <> TYPEDCLE THEN 

2380: do; pall «'y?f* Ehhoi-; 

2361: ULC$QTY-i; 

2382: AlOCBASIcn?=0» RETURN? 

2383: FMDJ 

2384: END; 

2385: /* HERE EXISTS SITHER A BASIC TYPE OR A TYPE DECLARATION *'/ 

2386: IF »LLC£FOi,M = T Y M l * H T -ft Y THEN 

2387: DO; /* EASIC TYPF */ 

2388: DO CASE (SH'l ( BYTEPU ,3 ) AND FOkMMASK); 

2389: /* INTESFk */ 

2390: DO! 

2391: ALLC^TY-2? 

2392: ALOCBASICTY P=-I NT MEM TYPE; 

2393: END; 

2394: /* BCD REAL ,; 7 

g 2395: DO; 

2396: ALLCVOTY=8; 

2397: ALGC3AS-.ICrY?r=U'<Slf}N$-OPON; 

2398: END; 

2399: /* CHARACTFR */ 

2400: DC? 

2401: ALLC$QTY=1» 

2402: ALOCBASICTY P^CHAHvTYPL'i 

2403: END! 

2404: /* BOOLEAN */ 

2405: DCi 

;24'-96: ALLC>OTY=i; 

24 07: AL0C3ASICTYP-P00LFANiTYPE; 

24 08: END; 

2409: /* TEXT *7 

2410: DO? 

2411: AILC$QTY - 2; 

2412: ALOCBASICTY? = STR I Nti*>TYPK I 



u> 



00 



2412: 
ij41 1: 

2415: 
2416: 
241?: 
2418: 
2419: 
24 20: 
2421 : 
2422: 
2423: 
24 24: 
242b: 
2426: 
2427: 
2428: 
2420: 
2430: 
2431: 
2432: 
2433? 
2434: 
243?:: 
24 36: 
2437: 

243b : 
2 4 3D: 
244?: 
2441: 
244?: 
2443: 
2444: 
244ft: 
2446: 
24 47: 
?44a: 



sir; 

end; /* OF CASE *■'/ 

allocate-true; 
pftuhn; 

r m ]\ • 

/* HEHF EXISTS A TYPE DECLARATION */ 

TEMPBYTF1 , ALLCiF01M=(SH«{ BYTEPTK ,3 ) AND FORMMASK! 
IF AILC$FORH~0 THEN 
do; /* SCALAR *■/ 

allocate=true; 

ALLC$QTY-DOUH.E(ALLCyEOHM«l U 
ALOCBASlCTYP-GM^fYPR; HE-TURN? 

end; 

IF ALLC$FQKf1-l THEN 

do? /* subrange ■'>•';/ 
allocate-thue; 

A LOCI' AS iCTYP- COMPLEX VffPE; 

B-SHH(BYTEPTH,6); 

IF R M THEN A f,LC$QTY = I)OU Bl.L ( AT.LC^FOfitH 1 ) J 

ELSE ALLC$QH = DOUBli;(ALLC$FORIi); RETURN; 
KNE-.5 
IF ALLCi-EOhM-2 THEN 
DO? /* ARRAY */ 

ALlOCATE-TRUE! 

ALOCBASICTYP^COhPLfX$TYPE? 

CALL SFTAODHPTlKt); 

ALLC*OTY*^PIiHPTH| I'ET.JHiJ} 

end; 
EV.2"; 

/* all other cases allocate an address field */ 
allc$oty=double(b); 
alocbasictyp=complex$type; 

ALLOC* 1'F-TRUE; 
END ALLC$ OFFSET? 



CO 



•2449: 
2'4 5P: 
2451 : 
2452: 
2453: 
2454: 
2465: 
245o: 
215?: 

2458: 
2459: 
2460: 
2461 : 
24 62: 
24 65: 
2464: 
2465: 
2466: 
24 67: 
2463 : 
2469: 
2470: 
24 VI: 
2472: 
2473: 
2474: 
2475: 
2476: 
2477: 
24?b: 

2479 : 

2480 : 

2481 : 
24 h2: 
24 85: 
2484: 



/** 






sScljc.&ftMS'tfr. 



/ 



/* AL$NDX*G^SET - THIS PROCEDURE IS CALLED */ 

/* TO DETERMINE THE NUMBER OF BYTES REQUIRED */ 

/* BY AM ARRAY 1'6 STORE THE ARRAY'S COMPONENTS */ 

/* TYPI'LOCT IS SET PflOR TO CALLING THIS */ 

/* ROUTINE. AN ADDRESS VARIABLE CONTAINING THE */ 

/* BYTE COUNT IS RETURNED. #/ 

f <: >;: >;-. * ;- f <: # t\i ?;; J f :f jji * >;< % j;< # # ,;. v< •> /,; s ; ; .■■ £ $ ; ; : ,; ; ,;,- ;;, # ; ; ; ,;< ,; : ; ; ; ,■; ^; .;. ^ ft ; ; ; # % ; ; c ,; t j|c ^ >S< # / 

al^ndxsoffstt: proc adlrj 

dcl a addr.b byte? 

a,base=typehoct; 

CALL SETADDhPTR(4); 

DO WHILE (SllR(8YTEPTh,3) AND -FOM1MASK) * 7 AND 
( BYTEPTR AND EORMMASK ) * TYPEifcNTRY; 
CALL SET$PAST$PN(V) 

BASi'=ADDPPTRr CALL S ETADDRPTR (4 ) ,* 
END; 
/* HKivR WE HAVE EITHCR A SCALAR .SUBRANGE, BOCLt AN , OR CHAR TYPE */ 
B- SHh( BYTEPTR, 3) />ND FOkNMASKJ 

if (byteptr and eormmask) =■ ty l'f:$ entry then 
do; 
if . b * .v or b * 1 thfn 
do; 

CALL En.'RC-ivl 'IA') J 
b=2; 

RETURN DOUfcLE(b); 

end; 

I? B=2 THEN /'■' C.HARACTTEic SUBrfANGE *'/ 

do; 

B = 26j 

H EO$ V Ah VI' Y P( rt EC< N.ST )= C,H AH if TY P E 5 

RETURN DOUF.I.El'E); 

end; 
/* boolean */ 
r ec $'v a-r $ty p( r ec $nst)- boolean^ type; 



00 



2485: 
2486: 
24 87: 

2488: 

2489: 

2490: 

2491: 

2492: 

2493: 

2494: 

24 95: 

2496: 

2497 : 

2498: 

24 93: 

2500: 

2501 

2502 

2503 

25C4 

2505 

2506: 

25?V: 

2508 : 

2509 : 

2510: 

2511 

2512 

2513 

2514 

2515 

2516 

251? 

2blH 

2519 

2520 



2} RETURN DOUBLE' F) J 



P ■-= 
END J 
COMPLEX TYPE */ 



IF 



BYTEPfR AND FCRMMASK) 
B <> ) AND ( B <> 1 



O TYP£$DCLK OR 
))) THEN 



/* 



END 



(I 
(( 

do; 

call error( Ta'); 

t>^2; RETURN nouni,E(B); 
end; 

IF B=0 THEN 

DO? /* SCAL.U. TYPE */ 

HFC$V«R4TrP(HEC$NST)-C0f-iPLEXiTY?E; 
CALL SET$PAST5?N(V); 

RETURN DOUBLE* BYTFPTR t ij't 
END; 

SUBRANGE TYPE */ 
hl:C$VAB^TYP(nEC$MSTi=-Ol.D$TYPE; 
CALL SET-ADDHPTa(ll); 
RETURN ADCuPTR; 

al$,mbx$offsft; 



/ >',• >'•< % ^- # ■'.' >.- * * >\- i't i;i >;• * * * * * --^ >;< >;• ;:•■ * * ;;< * >;= >; & * * * # * >;* * # * *'f ■■'■ * * * * v * 

* ALI.OCATE$VARUBLFS - THIS PROCEDURE IS * 

* CALLED TO ASSIGN PRT LOCATIONS FOR EACH * 

* Of THE PROGRAM VARIABLES. *■ 
•!• v £ * & •.; >i= <• '!• >;< + .;•■ ;;< >;. #>;: ;;< ^ # j|: j;i >;< v # •!' >;< £ >!- >;< >i' v >;< 4< •!• >;< -^ >;> >!< >;• -is >;. # ;jt >;< i|s >;: / 

ALLOCIVARS: PROCi 
TFMPLYTE1 =• 0; 

CALL Al.LC!?OFFSKTiTYPF' T :.OCT); 
TFMPBYTE = VARfPTp; 
DO VAR^PTR - TO TEMPPYTft; 

BASE--=VAfl$KASK( VAK*Pi'U)i 

C'LL SE'f ADDhPTi {4 ) ; 

IF SHRf bYTrPTH,7) THEN 



2521 : DO? 

2522: BYTFPTH - . ( HYT EPTn ) OR ( SHL (ALOCBAS I CT Y P,3) OR ¥A8$EHTH]f) 

2523: APTiiADDit - V Ai<$I-ASEl ( VAB$PTti ) J 

2524: AI/DHPTR = ALLOC$ADDHi 

2525: /VLOC$ADDB - ALLOCiADDH + 2J 

2526: EfiDi 

2527: ELSE DO J 

2528: BYTEPTh*SHL(ALOCBASICTlfP,3) OH VAri^ENTHY; 

2529: /* IF (EYTEPTK - 23ti ) AND (TEMPBYTE1 = 2) THEN 

2530: DO! 

2531: APTPADDh * TYPEHOCT * HJ 

2532: ALLC^QTY - ADDKPTH; 

2533: END? 

2534: IF TEMP BYT El = 3 THEN 

25;}f:: DO; 

253€: APTKALDR - TYPt'UOCT + tr, 

2537: APTHADDK = APThADPr. + BYTFPfH + 1? 

2S38: APTKADDR = AbDRPTH + 5; 

2539: ALLC^QTY * ADLHPTHj 



3 254?: END? '-/ 



2541: APTRA.DDh=VAR$BASRKVAli*PTh); 

2 542s Addrptr-all'oc4aldr; 

2543 : ALLOC $ AD DP -A I.LOCi A DDK + A LLC$QT Y 5 

2514: END; 

2545: APTHADDH-APTKALL10 2; 

2546: ADDi-PTH-TYPFiLOCT; 

2547: END; 

2546: TFMPBYff.l - 0} 

2549: END ALLOC^VAhSJ 

2550: 

2551: 

2 5 5i : / * * '■'■• * *" ;i * ;;; ''■ * * * * * * * : ' : * * * ; .- * * * * * * ■■• * * * * * * * t< ••:■ * * * -: ; * * •-:-■ * * * # * 

2553: * CASKiPTPPTr. - THIS PROCEDURE 13 CALLED TO *• ■ 

2554: * SET A VAiUA'RL-a'S APPROPu I AT 3 TYPE. * 

2555: <i * A * '& * >■•. & .,; * •.;. * ,;. ,; t ^; >;; 4 ;;: >;. £ >,: ; ;. ;V >;< ,; ; ^, ; ;. g, ; ; ; .-;. ,; : .;, ;;, >;< ( ; ; ,. % ; ;. ,;. .<, .;. .; ; .,< ; . ; ,1: , ;i ,....., 

2556: 



00 



2557: 

2556: 

2559: 

7560: 

2561 : 

2562: 

2563: 

2564: 

2565: 

2566: 

256?: 

256B: 

2569: 

2570: 

2571 : 

2572: 

2 573: 

2574: 

2575: 

2576: 

2577: 

257t: 

2579 : 

2 580: 

2581: 

2562: 

25B3 : 

2584: 

2585: 

2586 : 

2587: 

2b^8 : 

2581': 

2590 : 

25U : 

2 592: 



Cf.SFjPTHPTH: PHOC(A); 
DCL A Wi'ii] 
DO CASE a; 
/* CASE tf ORl) VARIABLE */ 

do; 

PTi-.PTR - 10 h ; 

CALL SKT$PAST?PN( J)J 

lJASKHOC(SP) ^ ADLRPTRi 

MDi 

/* CASE 1 INTEJEK VARIABLE 

ptrpth - 09 ii; 

/* CTjF. 2 CHAR VARIABLE *"/ 

PTrtPTR - HfcHi 

/* CASE 3 REAL VARIABLE */ 

PT):PTF = f'AH» 

/* CASE 4 COMPLEX VARIABLE 



/* APDn OF PARENT */ 
*/ 



*/ 



DO? /- AHRAY, SUBRANGE, USER D^KlfJED TYPES */ 

TFMPADDh ■- BASH /* STORE VARIABLE SBTL LOCATION */ 

CALL SLT$PASnPN(9); 

BASE = ADDHPTRi 

CALL SF'.'TADr.i PTM4) ; 

IF EYTEPTR = 17H TREK /'■' ARRAY *' 

Pu; 

APTRAVOR = APTRADOH * 6 5 
TFMPfcYTEl - fcYTFP'i'R; 

ELSE IF (BYTEPTR AND ^ F Ft > = 0FH THEM 

TEMPbY\"El = SHR'BYTEPT3, 6); 
ELSE IV BYTFPTR = 7Afl THSN 
DO? /* US E K DEFINED TYPE */■■'. 

TEMPBYTfcl - M 

CALL SErvPAST$P,\l(7) ; 

BASF - ADDi.P'IM ; 

CALL SI1TADDRP'iR( 1 ).; 

IF BYTPPTR O 27}i t}<tii CALL ERROR t'.NS ') J 
/-THIS IS .» SPT TYPE */ 



/■* SUBRANGE TYPES *./ 



2593; CALL JETADDhPTK{5 ) J 

2594: BASE$LOC(SP) = ADPRPTRJ /r ADDH OF PARENT */ 

2595: END; 

2596: ELSE IF hYTFP'iR = 37H THEN 

2597: DO? /.* POlNi'FW '■/ 

2598: CALL .SE f "ADDi'PTR ( 5 ) ; 

2599: BASEHOC(SP) ■ ADWPTRJ /* ADDR OF PAhENT */ 

2600: END? 

26?1 : ELSE TEMPBYTE1 = 06IK 

2602; DO CASE TFMPBYTEl; 

. 2603: PTftPTB = 10H5 

2604: PTHPTH = 09H?- - 

2605: PTRPTH ■■■■ 0BHJ 

2606: PTRPTH » 0AHI 

2607; PTRPTH - ?CHJ 

2606: PTHPTH - UfcHi 

2609: PTRPTH * 0CH» 

2610: END; /* OF CASE '■/ 

2611: BASE - TEMPADDh; /* HESTOKE ORIGINAL BASE LOCATION */ 

2612: EM); 

2613: /* CASE 5 BOOLEAN VARIABLE */ 

2614: PTHPTH - Vbtt', 

2615: END? /* OF VARIABLE CASE *./ 

2616: END CASF^PTriPTHi 
2617: 
2616: 

2619: / * * * * * ,: ' * * * * * * * '■- * * * * * * * * * * * >'.■ * * ■<■ >$ * # * * * * # * >;< >:• # * * * .•;; =:« * * •.;-. / 

2620: /* Si.'T$VA. :; lABLK$TYPE - Till.] PliOCEDUlef: 'IS CALLED */ 

2621: /* TO SET THE VUUABLK TYPE, VARIABLE SIGN, AND */ 

2622: /* ADDHFSS OF TliF BASIC TYPE GIVEN. THE ADDHE3S*/ 

2623: /*, VARIABLE 'LOOKUP? ADDK ' IS SET PHI OH TO T'lB */ 

2624: /*•; CAlL. */ 

2625 : /********#***** **'*****>^ 
2626: 

2627: SET$VAIMYPE: PnOCJ 
2628 : 



26?9: SiT$TYPi>N$LOC: PrOC( A , B ,C) ,* 

.2630: DCL (A, B, C) BYTE; 

2631: CALL SKT$PAST$PN(.A) 5 

2632: IF (B=04H) OH (B*05H) Ok (B-e6H) OR (B=11H) THEN 

?633: PHTADDH(SP) = APTRADDRJ 

2634: ELSE PRTADDlUSP) - ADDRPTR5 

2635.: TYPBiSTACK(SP) = (B Oh KOL.C, ?>■)■; 

2636: END SET$TYP$N$LOC; 

2^3? : 

2533: BASE - LOOKUP* A DDi<; 

2639: CALL S ETADDHPTK ( it ) ; 

2640: FOHM^FIi'LTMSP) = BYTPPTH; 

2641: DO CASE ( t'Ofi'M? FI £i,D{S P ) AND FOKMMASK*; 

2642: ; 

2643: /.* CONSTANT ENTRY */ 

2644: DCj 

2645: lIGN^.VAtU - POS ; 

2646: DO CASE (SHR < BYTKPTP. .3 ) AND 03H) ; 

264?: /* FIND OUT WHAT KIND OF CONSTANT IT IS */ 

5 2648: DO WHILE ( SHU ( PYTEPTR ,3 ) AND 03H) * 0; 

2619: IK (SHH(BYftfPTil,ft) AND tilh) * tUH THEN 

26bP: IF ; S T 0NAVALU THEN SIGtf$VALU - NEC? 

26rl : ELSE S1GN$VALU ^ POS; 

26 52: CALL S F.TADDRPTR ( 6 ) J 

2653: if NOT LOOKUP^PNAMFf APTl-A l)Dff ) THEN 

2654: DO: 

2655: CALL PKKOK; 'l.C')» 

2656: KFTUHN; 

26 5?: end; 

2656: CALL S ET ALDIiPTR ( 4 ) i 

26^9: IF (BYTBPTh AND FOHKNAvK) O CONS$ J.Nl'Rf THEN 

2660: DO; 

2661 : CALL K-l.-RO'Ki ' I C ' ) ? 

2662; liK-TU-fNi 

2663: END; 

2664: LMD; 



to 



2665: . /* INTFGL" OH BOOLEAN CONSTANT ' */ 

2656: IF PAS F < MPMOI-.Y THEN /* BOOLEAN */ 

2657: CALL S£TVI'in'iNU0r(9,4Ii,POS); 

2666: ELSE , /* INTEGER */ 

266.J; CALL SET? TY ?'? N?LOC ( V , ftfi ,SIGN>VALU} ; 

2670: /+ kPAL CCNSl'ANT V 

2671; CALL S FT ?TYPi *HOC <? , "h , S IGN^V ALU ) ,' 

26V2; /.* STRING CONSTANT *./ 

2673: CALL SET?TY P$N$LOC (7 ,7H, 0) f 

2674: END; /* OF CASE >■■ / 

267b:: END; 

267.6: /.* TYPE ENTPt */ 

2677 : J 

267-: /* VAhlABLS ENTRY */ 

2679: DO? 

2680!: IV S-lRiFOhflir'lELLMS?) ,7) Ti:EN • V Ah ?ArfM = THJEJ 

: j ctA: PfH-PTK - ( SUn ( EOP.H? FI ELDI S P) ,Z '■ AND EOpMNASh): 

26V : 4: : IJASE^LOCt S P ') •=- RASE} /••= SYMBOL TA'vLE LOCATION OF VARIABLE "7 

268.3: CALL CASFP'l ?P?h( P'-P* PTii ) 5 

26P4: CALL S E T? T Y P ?;V,.' LOC (7 , PTKPTH ,.«* ) ; 

268b: E'lui 

2666: /■*.'.■ PROCPDJUE FNThY */ 

26t7: ; /•>• no SUCH THING EXISTS T.N PASCAL */ 

268b; ,.■'■• FUUCi' EMThY *./ 

2689: DO; • 

2690: IF EOKM-«'IP!,D(. • BUI LT> IN>FUNC THEN /* BUILT IN FUNCTION */ 

26 it\ ; IV ', 

26i.2: CALL SETi PAST? PN (8) ? 

Zp&S'i IF IY'I'F.PTh <: l.Mi Til FN 

2694: IF hTPilPTH O MF Mi THF.fi 

26.it->: fittf 

26-56: . CALL C ASPPTtt PTi ( P, YTE PTh ) ; 

2697: TY?t;1.STACK(SP) - PTHPTUj 

2698: i'ND-i 

26'i3'.: APTHAlJDR - AClRABDi. + 1, 

2?M: PA:iKi,UM:Pj - HYTEPT''? 



27P1: 

27^2: 

2703: 

2704: 

2705: 

2706: 

27 07: 

270B :• 

2709: 

2710: 

2711 : 

2712: 

2713: 

2714: 

2715: 

2716: 

2717: 

27 i'e : 

27 i9: 
2720: 
2721 : 
2722: 
2723 : 
2724: 
2725.: 
2726: 
2727: 



•AEMKWICCCSP)- -- APT'tADD! 



If 



end; 
k1.sk do; 

call sft^past$pn(16); 

CALL CASLPTliPT!<(SHli(£YTEPTR,3) AND FGEMMASK); 

call set$typ*n$loc(10,ptrptr,0)j 
call 5et$past$pn(7); 
parmnum(sp) * byteftr; 

CALL Si.T$PAST*PN(b); 
PARMNUMLOC(SP) = ADDhPTIf? 
CALL SET$PAST'->PN( 14) ; 
LABELSTACKiSP) - ADD.tPTR} 

fmij;. 

if token o 1« then rfadpahms = t^ue; 
/'• otherwise, this will pe a function assignment statement *'/ 

P*KMNUML0C<SP+2) = PAHMNUMLOC(SP) } 
END; 



/* 



PILE FNTKY 
SCALAR ENTRY 



7 



> 

LOT 

CALL SEt$TYP$N'$LOC(7,llH,0); 
APTRADDR = APTHADf'H ■*• l; 

pase$loc(sp) * adeupikj 
end; 

end; /* of case */ 
end skt>vak$type» 



*/ 



2729: 
2730: 
271' 1: 
2732: 
2733: 
2734: 
2735: 
2736 : 



,"•• LOAD$VAHI - THIS P ROC E r ti f< 1, GENERATES THE >•</ 

/-* INTERMEDIATE CODE TO LOAD THE NEXT VARHR'LE */ 
/* ON THE EXECUTION STA"K OF THE OBJECT FILE *■/ 

/ * *'»:« ft * :;= if * >>■. * if i. .if * * f. * $ ,■■ if V - .... fy if K , ^ .., ,. >;< i% j; . ... ,,. ^^m;,;;*,;^,;^^,^ 

LOADJVAkl: PROC(PT); 



275?: 

2?2d: 
2739: 

2740 : 
2? 41; 

C"7 : •■ "> . 

c V ! : 
27 -a ^ : 
2745; 
2746: 
2747: 
2748 : 
2749: 
2 7 50: 
27 hi; 
2752: 
2753: 
2754 : 
2755: 
2756- 
• 2757: 
275a: 
27 59: 
2760: 
27 nl : 
2762; 
2763 : 
2764: 
2765: 
2766: 
2767: 

2768 : 
276;): 
277;): 
2771 : 
2772: 



DCL pt byte; 



PT REPK'-RSEi*TS A STACK POINTEH */ 



dcl a mte; 

PO CASE (TYPE* STACK ( P? j ft MB tffH); 
A = OKD^TYP-E; 
OhD$TYPfcJ 



A - 

i 

t 

A = 

A - 
A ' = 

A = 

(. = 



A 

end; 

EXPRESS $STK(Pr ) 

END fxp^stack; 



BOOLEAN$'"YPf.; 

intf.sfhM'ype; 
unsignuxpon; 

ST'iiNGiTYPE; 

boolean^-type; 

I NTtG t"H$TY PK; 

unsign£-kxpon; 

CHAk$TYPE! 

/■* OF CASK 

a: 



*/ 



LOAD: PROCU, B, C)J 

DCL (A, B, C) tYl'FJ 
/* CHECK IF LOADING 



A FUNCTION 



'I ELDIPT ; ANT) 7FH) <> 



VALUE */ 
FUNCiENThY 



THEN 



IF (FOnM$ 

do; 

CALL uFNHfATc'! A) ; 
CALL GENEivAi'E( B) i 
IF SHlt(TYPE$STACK(PT), 6) THFN /* «CC?SSI,>T f AHKAY */ 

CALL 0£NFKATK(SUb); 
ELSE CALL GLNEk ATE( C ) i 
IF A - I.DIB THEN /' 

DO PTHPT.'i - 2 TO {PCDNUM/2); 

APTnAM-f = APTHADlJiJ + 2 J 

C'i.L GLNERrTE{ RYTEPTh ) ; 

CALL GL*NPHAT-t( if IGH( ADD!tPTt( ) ) ; 



LOAD REST OF BCD NUMBER */ 



2773: 




2774: 




2775: 




2776: 




2777: 




277b: 




2770: 




2780: 




27b 1: 




27if2 : 




27B3: 




2784: 




2?ts5: 




27B6: 




2787 : 




2788: 




2789: 




2790 5 




2791 : 




2702 : 




2793: 




2794 : 




2795: 




2796: 




2797: 




2798 : 




2799: 




28M: 




2801: 




2802: 


/*0« 


2803: 




2wf>4: 


/*i* 


2805: 




2W6: 


/*2* 


2d?7: 


/>vj<; 


28 08: 


/*.!/■ 



EN Pi 

IF SHH(F( rt'M:VK ; J UD(PT1,7) THEN /* VARIABLE PARAMETER */ 

CALL GLUVdh'nMQdl ) \ 

else call g fn$ add") ( pro, labels tack ( mp) ) \ 
call fxp$ stack? 
kmd load; 

if readstmt then ht'tupn; /* going to rrad this value ♦/ 

IF HEADPAKMS TflliN 

DO; /<• READING A SUBROUTINE'S PARAMETERS */ 

IF (TOKEN <;- 12) AND (TOWN O 8) THFN KEADP«hhS = FALSE,' 
/•"• : THIS MEANS THIS PARAMETER IS AN EXPRESSION THAT MUST BE 

EVALUATED, AFTER EVALUATION, REAPPARMS WILL BE SET TO TRUE 
E'LSF DO, 

CALL ASSlGNiPAnMS; 

CALL fxp^stack; 
return; 

ii'NDi. 

END; 

/* IF LOADING A FUNCTION VALUE, GO TO THE CASE STATEMENT */ 
IF iFORM$FIELD(MP) AND 7Fh) O FUNcifcNTrtY TKSN 

do; 

1} ((TYPE$STACK(PT) > 08H) AND ( If pv*STACK( PT) < 11H)) OK 
(ITYPS$STACK'(I'T) AND 4WH ) * 40H) III K N /* IN CASE OF ARRAYS * 

CALL GFNKhATF(LITA); /# GOING TO LOAD A PhT A DDK */ 

ELSE APTRADDR - PRTADDR(PT); /* GOING TO LOAD A CONSTANT */ 

end; 

DO CASF (TYPEiSTAck(PT) AND #■*%)■} 
; 7 /* ORD VAHl ALU */ 

. CALL LOAD ( LOW ( PhT AI)DH(PT)) ,11 IGM( PRTAPLR( PT ) ) , LOD ) ', 
7 /* OFD CONSTANT */ 

CALL LOADUDI I , \ YTEPTR , NOP ) ; 

7 ; 

7 ; 

7 /*'■ liOULEAN CONSTANT */ 



*/ 



/ 



V© 

tn 



28C*9: 
:-J10: 
>11 : 
*-12: 
28'i3: 
2csH: 
2815: 
2816: 
•2ol?: 
2818; 
2819: 
282H: 
2821 : 
2822: 
2823 : 

2824 : 

2825 * 
2826: 
?»27: 
2828: 
2&2i>: 
2830: 
2631: 
2832: 
2833: 
2834 : 



CALL I.GAD( LDI I .L'VTEPTR , NOP ) J 
/*■■£>*/ DO? /* iNTEGKif CONSTANT */ 

CALL LOADfLDIl , BYTKPTR , HIGH( ADDRPTR ) ) J 

IF TYPK^STACf'CPT) - 85H THE!* CALL G tNEK AT i A N tGI ) ,* 

end; 
/*6*/ do? /-bcd constant */ 

CALL .LCAD'LPIB.PYTB-P'i'.ri ,H IGH ( ADDRPTR ))? 

IF TYPFiSTACK(PT) - 86H THF.fi C*LL GFNER AT R( NEGB) » 
END; 
/*?*/ TO? /* STRING -CONSTANT */ 

CALL GF.NUATE(LDSI )', 

TEMPPYTE - BYTEPTKJ /* LENGTH OF STRING */ 
DO PTHPTh = .TO f*:M?BYf'E; 

CALL GFNFJ.ATEUPThADDR + PTHPTK); 
EN D ; 

end; 
/--8* / /* bool f; a n variable * / 

call load ( low ( pktaddh ( pt ) ) ,h igh ( phtaddh( p't ) ) , lod ) ; 
/*9*/ /* integer variable *'/ 

CALL LOAD(LOW(PJT.^DLlMPT)),Hir,||(Pi,TADDR(PT)) f LODI); 
/*A*/ /.* REAL VARIABLE • */ 

CALL LOAr{LOW(PliTAPliS(rT)) ,H IGH ( PftTADDR ( PT ) ),LOLV); 
/*B*7 7* CHARACTER VAMAPf.E */ 

CALL LOAD{LOtf.(PKTADDR(PT)),:UGH(Pi<TADDR(PT)),LOD'); 
END; /* OF TASK =:•/ 

END LOADiVA'U; 



2836: 
283Y: 
283t : 
253'J; 
284*: 
2841: 
2842: 
2843 : 
2844: 



/■■• 

/:* 

/* 
/ '' 

/>:■>; 



<* # -;• * * « v >;< »;« fy *. * ;;< >:■ f. -.;, :\. .;. ;;. * # ;•; >;: ;;.- ;•,: >; ; # $ $; # # ; ;< ^ $ j; ; ;;< >•,, : ; ; ; ; ; ; ; ; ■,;; % : ; : ,; : # £ i 

ASSIGN-? if >. PI - THIS PrOCFDUuE G EfJ'F RATE'S THE *'/ 

INTERMEDIATE CODE TO LOAD THE LEFT SIDE OF */ 

AN '3SIG?;.MEN.T STATEMENT ON THE EXECUTION */ 

STACK ANO ST03»S A RESULT AT THAT LOCATION. */ 



A33IG.N$ VAt; I: PROC(LS, STOli f'iTY PF ) ? 



2845 

2846 

284? 

2846 

2849 

265C 

2851 

2652 

2853 

2854 

2855 

2856 

285? 

28 58 

2859 

2660 

2861 

2862 

2863 

2664 

2665 

2666 

2t>6? 

2868 

2bfi9 

2870 

2871 

2872 

2673 

2874 

2675 

2876 

2877 

2678 

2679 

286P 



DCL LS BYTE; ;'/* LS IS THE LEFT SIDE OF ASSMT STMT */ 

DCL (A, B, STOKE$TYPK) BYTE5 /'•• STCRKSTYPE INHCATES WHETHER-- 

to dflete oh lfavf the cuupent value at the top of the stack */ 

if (type$stack(ls) and 40h ) * 40h ttjen 

do; 

typf$stack(ls) = (typf$stack(ls) amd pbfh)j 

cam generatf-(xchg); 
end; 

els? call gfn$ai>dh(lita,prt$addr(ls)); 
if shk(f0rm$fiel.i)(ls),7) thkn /* check for vafc parameter */ 

call generate^ lodi ) \ 

DO CASE E-XPhESSi-f!TK(SP)j 
/.* CASE - 0RL> TYPE */ 
IF (TYPE$STACK!LS) O 11H) AND (TYPK$STACK(LS) O 10H) THEN 

CALL ERRG-R( 'AT')? 
ELSE A = 2; 

/* CASE 1 - INTEGER TYPE */ 
IF TYPEisT«CK( LS) ■'- 09H THEN 

A * l; ■ 
ELSE do; 

if t*pe$stack(ls) = '?ah then 

do; 

CALL GENFRATEiCNA! )? 
A = P.J 

end; 

ELSE CALL Ehl«OH( 'AT ' ) 5 

fnd; 

/*■ CASE 2 - CI A r$ TYPE */ 

IE TYPE^STACK iLS) * WBH THFN 

A - 2? 
ELSE CALL EH;0><( 'AT'); 
/* CASE A - HEAL TYPE *'/ 
IF TYPF^STACKUS) = 'UAH THEN 

A = 05 
ELSE CALL ERROR! 'AT') 5 
/* CASE 4 - ST KING TYPE */ 



2 . 

881: A = 2) 

2862: /•:• CASE 5 - bOOLEAN TYPF. */ 

288.5: IF TYPE^STACK ( LS ) •- Oh : H THEM 

2.884* A ^ 2; 

•28:86; FLSF CALL KkROKl 'AT ' )i 

2886: END? /* OF CASH */ 

266?: IF STOHE?TYPE THEN A - A + 3 ; 

2883: DO CASK A J 

26b9: B =• STOP? 

ze^m B = stdi; 

2691 : B = STD5 

2692: B = STOB; 

2893: B - STOI; 

2894: B = STOI 

2895: SNDI /* OF CASE */ 

2696: CALL G frNRHATEt B ) } 

2897: FND ASS MNytf Ah I i 

289s: 

2699,: 

2900: /&****>:■$* ■■:> * * * *.>:> >:< * i- « -:■ ;:• '•;,■ •■:■■ ■-:■ * * >? * & * * * * * >:. * * ■,;■ / 

29C1: /* THIS" PHOCEDUht CHECKS THt TOP 1'WO */ 

2902: /* VARIABLES ON THE EXECUTION STACK */ 

Z9tf&i /* FO.tf PR0PKK TYPE. */ 

2 9 (' 4 : / * " ;: '•' '•• '■'■' *•' '•• ••' •'•• * * * *•- * * * •'• J ' 1 >•• v * &■ •■' # >'' >'•' * * * * * * * *. ; '!• * # / 

2Qtib: 

2906: CHK$FKPhiTYPE: PROC EYTF! 

2907: IF ( EXPRESS:- i»fk ( SP) - F.X Pit FSS $5'VK (M?) ) AND SXPrtESS $STK (SP) <> £H 

2906: THEM KETUhN TI-. tJ£J 

2909: IF EXPHESS$STK ( S P ) - Hi THEN 

291 f: DO! 

2911: IF LXP':ESS^TK(MP) = 3!l THEN 

2912: no; 

2913: CALL GEN Ft A f F( CNV 1 ) ; /.# CCNVEitT PJ T TO BCD */ 

2.5/14,; FXPRESSySTK(SP) *3tf-; 

291 n: KETUKN TtfUPi 

2916; END; 



2917: 

291b: 

2919: 

292 0: 

2921: 

2922: 

2923: 

2924: 

2925: 

292b : 

2927: 

292 .,: 

2929: 

2930: 

2951: 

2932 : 

2933: 

2934 : 

29.' 4 b: 

293 6; 

2937: 

2938: 

2939: 

2-.9461: 

2W41 : 

2942: 

2943: 

2944: 

2945: 

2946-: 

2947: 

29"4^ : 

29-5 9: 

29bti: 

2951 : 

2952: 



EI.SF IiFTUI-.N FH.SK;- 

end; 

IF EXPhESS$STK(SP) -311 THEN 

do; 

IF .EXPKESS$STK(mP) - 1H THKN 

call 0enfpate(cn2i ); /* 'conveht second int to bcd */ 

fxphess^stk(mp) * 3h j 

!:etu rsi .true! 
end; 

else ketukn false; 
end; 

IF EXP1?ESS$STK(SP) = 0.U THEN 
no * 

IF EX.PKESSiST*(MP) <> 0H THEN 

i.'PTUUN false; 
ELSE do; 

'F bASBHOC(SP) = BASR$LCC(MP) THEN 
■KETUKN ThtU; 

FND ; 

hl'TUhN false; 
END CHKvFXPH§TYP.Ff 



/ * * ■;. * V ;;, ,; : .;: - $ - * v ; « £ - ,; <; ,....; ... -, + ^ ^ >; ; ,; ; . ^ jj, ... ... £ £ ... £ .,, ,.. .., ,.. x ... ,j. <t jj. ^ ^ ^ 

* COPYSSTACKS - THIS PiiOCEDUltE DUPLICATES THE * 

* STACK VALUES STOKED AT ONE POI NTEil- LOCATION* 
*_ AT ANOTHEK SPECIFIED POINTED LOCATION. * 

>, ! ■ V *. ;.. v * .<< * £ .;: * ; ; ; ;.^ ;- f- ; ;\: * .;: * * * * * ^: * * , ? £ * * ^. .;, ..;, £ .,, .j. ... , j ,., ... * £ £ .. ; ^ £ ^ 



COPY^STftfKS: P: : QC(A, : B)i 
DCL (A, B) RYTC5 
TYPFiSTACK(A) = TY ?E* STACK ( R ) ; 
PHT$ADDKU) = PHT$ ADDS(B ); 
KXPKVSSiSTKIA) - EXPI(ESS4SrK(h); 



>,0 



2953: 
29r 4 : 
2955: 
2956: 
2957: 
295d: 
29-P-9: 
2960 : 
2961 : 
2962 : 
296V> : 
2964 : 
2965: 
2966: 
296? : 
2968; 
296d: 
2970: 
2971 : 
29?2 : : 
2973: 
2974 : 
2975: 
c ti i r> : 
?:/YV: 

2s7h: 
2'jV9 : 
2yHfr 
29bl : 
29Hk : 
29d;i: 
29t -1 : 
i-9df>: 
;'9-36: 

:;9«y • 

;'9t:6: 



ENL 



FOftKfFIIL-HA.) - *OhM«FIF.LDU); 
HASESLOCU) = FASF$LOC(E); 
COPf$STACKS; 



I i\ )% & i' t : & i^: J^ :' . # £ ;•.: # >;c # # :|t j|: ,;t :{: ;;( >;: )|; y,; >',; >|; ;;. ;Jc ij; ;;; s|; >;; \, :\i ;',: i 



£&>;«#** 



* GF.NERrfElRUILT'vlN - THIS PiiOCEPJHE * 
*' GFN PRATES CODS- FOh. TiiF bUILT-IN * 

* FUNCTION!. * 

& & '.• J I* %■ ^ *! ; # ?!*■ >l ; % ; *!> J ^ ; 'I 1 ^ ^ **• * -^ *' ; # *! f # *; ; # # >*.* * # »X >$ # >l< # X ( # # ^ ; *. : »I* ; '. 4 / 



APT 
. IF 
C 
FLS 
/* 
APT 
DO 
C 
C 

C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



IT} IN: PKOC; 

HADDR ^ PAHMNUMLrC(MP) - 2J 
(EYTJ-PTn - IS'A) Oh UYTFPTh - 8F3H) THEN 
ALL COPY* STACKS (MP, SP-1 ); 
F EXPl(FSS^STK(MP) = P.YTEPTif,* 
CFN^RATF TiiF NOMONIC "CODE' FOm THE bU I LT IN FUNCTION */ 
hADDU = APT HA DDK - 1 ; 

casf bytepth; 

AM GKNFKAT^(AtS); 
ALL 'OfelNFHATBfSgH)}- 
ALL O'FNFI.ATFTtJIN) J 

OKNFKATF(COS); - 

GENEKATF' AkCTN)i 

GFNF.i'A'i'b'.f EXP J J 

c BNF«ATF( IM) i 

G KN ;•:« AT F; by id'} » 



f.I.I. 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
»I.L 
ALL 
ALL 



oenffatModd); 

GENFi<ATE( c;OLN)5 
GENERATE.' tXF); 
uFNF.i- ATL'(Ti(UN(') 
G EN EH AT F( HOUND) 
GENEHATEfOnD) J 
GENFiATLfCHi.); 
0' E-N S'-tt-i-i' E.( S-U ti'C") ; 
GEivEhAT-"'! Vi}ll) i 






299^': 
2991: 
2992: 

ZDJm 

2995: 
29'K): 
2997: 
2998 : 
299.-): 
3000: 

3002: 

3003: 

3004 : 

300b: 

3006: 

3007: 

300b: 

3009: 

3P'i#; 

30 it : 

30 1 2 : 

3113: 

3314: 

3015: 

301 i; 

3017: 

3.0 i b : 

3019: 

3320: 

3021 : 

3022: 

M 23 : 

O024 : 



end; /* OF CASK '■=/ 
F>4D OF!J>FUILT>I'i; 



/ ;;. v .;; « ;;. ; ; . s v :;• - ^ ; : ;: $ , s .; ; ; ; ^ , : ... ... ., ;; . ... o. . jj. ,.. ,;. a. ,. c ... i, ,, ( ^ ... ... .., ,, ... .j. ... ,. { ^ 

7'*- WiUTE^STHiHG - 'fiilS PkOCFDUKE WRITES *'/ 
/* A STMNU TO Tili INTtHMED. COT^ */ 

* rt I T L V S f Tf ING: i*i- OC ( NUMB) J 
DC.!, NUMB FYTF; 
CALL GENKRATE(WUTS); 
CftlL OFN^HVl'F(NUMB); 

bub whitf.$sthing; 



/* WKITE>VARlAfiLF - THIS PHGCEOUKF, WILL */ 
/'•■• -irsITF i U#h£ »BLt TO THE CONSOLE VIA */ 
/*;, THE INTtliMFD. CU|)K. «/ 

W!-;iTF$V/!K: PhOC ( NUMB i ; 

DCL fvUMb PYTK; /■'* iJUflbj'H OF WHITK PAHAMS */ 
IF NOT mF SDPM-.^S Ti'fFli 

DO CASf: FXPHPSS^TKfMP); 

/.* OhD I'-Y-'Pk ■■■/ 

CALL OFNEi.ATMWnT); 

A* INTKGHf Tri'F '•■/ 

CALL C£^lHATK(*i(TI )} 

/.* CHAh 1TPF 'V 

CALL I'lEfj KkA'F F( VHTJ ) ; 

/* hFAL TYPK *./ 

CALL afiNFj'AT't.tWiitB) ; 

/.* STRING TYPF *'/ 



,5025; 

3026; 

3027: 

3028: 

3029; 

3030 

3031 ; 

3032 ; 

3033: 

3034: 

3PK55: 

3036; 

3f37 ; : 

303b 

303,9 : 

3^4 0; 

3011 

3042 

3043 

304 4 • 

304; 

3046: 

304? 

504P: 

3049: 

3053: 

30 51 

3052 

30r3; 

30r>4 

3f55 

30rH 

305? 

-3f'f,~ 

305: 

3060 



CALL V.RITF.iST'dfiKNjrB); 

PET OK i; 

end-; 

/* boolean type - / 

call genfrat : '< wrti ) » 

EMD; /•* CASE FA ."ESS-?Si'K(M?) */ 
CALL GFNEKATHNUhb/ '. 

END i*ritf$var; 

/ <« *!• * * SS * * * 4 & $ if & .#?* # >;: ^ >Jc >)t * >[; iff >Js s(< >;< >;; if # i^ :;: >;: if >|t # >)c # # ;J. * :|; j^ <: # J): / 

/* REAi>$VARlABtE - THIS PROCEDURE GENERATES */ 
/* THE INTERMEDIATE COrf TO READ A VARIABLE*/ 
/* FROM THE CONSOLE. */ 

/ :> >'.' if >.; »ii *: # >Je •': * ;? tf * * # * >J )[■ if ijs # ij, >Jt .;< <; >;< ^ )[; * * >;: # * tf if f. $ * :•,( * >(: # * <c # / 

H!-'AP$VAH: PtiOC; 

IE !TYPE$STACK(SP) < 09H) OK ( TYPE^STA CK ( SP) > 0BH) THIN 

CALL F.KROK('Ik'); 
ELSE DO CASE ( TYPEiSTACK (SP) - -J); 
CALL (;£NKkATF(ai!VI ) J 
CALL GF.NFRATEf H.PVE.)j 
CALL OKNPh.AtEtHVtf); 
END; /* CASE (TYPE$STACK(SP) ~ 9) *■/ 

END KK.ADtVAiti 



/ -f ■:• * ■:■ ■■: * *t****t- .;> * * £ ;;= * * >:■■ ■:■ * * i- ■:• * * * # ;> ;;. * ;;; * * * * * * * * * * * * * # 
;* B*I$PROfEDURE - THIS PuOCEPtfKE IS CALLED * 

* UPON RECOGNITION OF A BUILT-I\ PhOCEDURK * 

* STATEMENT. . * 



'f- ;',« & ;;^ )',i >'.<. -;■ :£ # ^. ;;.' i^ # £ V ^. s;. i\- i\i :■; sje £ *,: # ;J; ; 



i- >); ^? y\i. >',: i'fi j, 1 ? >;% ^t j|i ;;; s',; j;< »;, ;Jc j)c / 



B '> I > PROCEDURE: PRC'e? 

BASF = BASFl.OC (MP) ; 

CALL 5ETiPAST$PN(V); 

•IE HYTErf:i <. 22 THEN / :;; FILE HANrLlNG PROCEDURE *'/ 



3CHJ : 
3062: 

30 r4: 
3«t>f, : 
3fc?66 : 
326? : 
3'dt'rj : 
3069: 
3070: 
3 (.5 ?l : 
34? 2 : 
3073.: 
3074 : 
307b: 
3 '/(?(• : 
3077 : 
'?.<?7"9.: 
307-J: 
3t*stf : 
30bJ : 
30 t-2: 
30£3: 

3f>et' s 
3 067: 
30 68 : 

309C: 
30>j1: 

3H&2-: 
3t 93 : 
3yj. t : 
309r>: 
3('Dt.: 



PC -USB ( HlfTHPf tt - 17); 

call g:j;nkkath?ut) ; 

CALL GEN.KRAlK('3c:'F); 
CALL CFNFHATF.(iESFT ) i 
CALL GFNFRATFUtWRT) J 
CALL Cj?NKRATr:(PAGE)J 
C»LI. frf N>ii-ATF( NFV/}.; 
?ND; /* OF CAS*. (Bm'PTR - 
FL-S'g DO CASK (HYTEPl'? - 2£ ) ; /■ 
NEW STMT f. FALSE; 
DISPOSES STMT -• FALSE J 
KF.ADfSTKT - FALSE; 
HEADi.STHT =. FALSE,' 

*« ite$stkt - fa i.st:; 
do; 

witrTt^sfMT *- : false; 

CALL CtNFuATKdUKP); 
FM f) ; 
END; /<■ OF CASE ! bYTtPTK 

END P.*I$PROCKKJkK; 



1?) */ 
VARIABLE NUMBKh OF 



PAH 'METERS */ 



22) */ 



Si 



THS * 



" BHEAKM.INKS - THIS PKOCF.riJKE REMOVES .. . 

SYMBOL TAUE LOCATION EnOH THE HASH TABLE * 

.*'<'■!< TJIOSK IDENTI FISRS THAT wVii-E LOCAL TO * 

TI'F CUit"Ef.T SCOPE! AND THE SCOPE POINTER IS * 

DECHJMF.NTF.I) If OfO . * 



■ ;,; )": ;|; # £ .;. ij.-rjs'ii'-s!' / 



FAK5LINKS: PROC; 

DO W If I LK Sbl'hl.SCOEE 
BASF - SBTBLSCOPE; 
CALL SKTADDI<PTR( I); 
IF v'm'KPTIi A\P EORMrfASK) -= 

do; 



SCOPc;(SCOPE$NUM - 1) 



?H) THE "J 



3098 : 

3100: 
3101: 
3102: 
3103: 
3104: 
3105: 
3106: 
310?: 
3 1 08 : 
3109: 
3110: 
3111: 
3112: 
3113: 

3114 5 

3.115: 
31 10: 
3HV: 
311b: 
31 19: 
31 2J - : 
3121: 
3122: 
31 ?3: 
312-1: 
3125: 
3i:?H: 
312V: 

Mm ■>. 

3 1 29 : 
3130: 
3131: 
3 1 3? : 



END 



C.'LL SFTADDFPTR(2); 
SBTBLSCOPE, 1-ASE * ADDRPTRJ 
END; 

elsf do; 
call setaddrptr(5) 5 
5YMHASH = bxtfptr; 
CALL SFTADDHPTR(0) 5 
HASHTABLE(SYMHASH) = ADPhPrK,* 
CALL SETADDFPTh(2); 

setklscope, ease « addkptr; 
end; 
end; 

sbtblscope = s:c0pe.(sc0pe$nu8 - 1); 
ehi'akhinks; 



* SCOPFSBRANCH - THIS PROCEDURE MErk-RA'fES THE * 
; ' INTERMEDIATE CODE THAT PEPK1TS BRANCHING * 
*. , . AROUND ANY- CODE tlENERATED FOR SUHROUTI NFS . * 

•S ■'.• i. if <« i- fc ir- * a> * >!• f.i }'.- * >.: is if if ^: if j;t >;. £ :Jt <e <i # ;;« jj: # ft >^ j|! jjt >jt # # / 



* V '(• V 1* v. 



SCOPE 1 ?!: RANCH: PR 00; 

IE SCOPfc$NUM "> 1 THEN. 

do; 

APTfrADDR - PAHAMNUMLOC * 7 ', 
C»Ll '5ENiADDk(BrL,( ADDhPTfi+1) )i 

call gkn$addr ( lh , a ddrpt r ) j 
fmd; 

END SCOPEiBPAMCH. 



I >'f i ■ :',■ if if >:< >',- ■'.- if if if if >f >;. # * >;. ;|; >[. ,f >;. :;. <i ft ;|. ;;< ;;; >;; jjs # a;: >;: jg ^-, # jr t >;; ;U * # ;|; ;;: :;; $• :, 

'•' ; LAP.FL',fiAKEri - THIS PROCEDURE ENTERS ALL 
f. - LAM-ELS IN Til f S YMKOI.M'A Hl.E . 

v >'f -f * ;'• >!= •;< >;- i- if- if <• :;. >;. i,i<- i.t % *. ;;. # :;. if >•■. >;< :;: ;;; >;; >;; £ :|; >; ; # : ; ; } ; ; ,;; ,;. j; t s ,: >;.>;< # i;: s;< >j 



#« 



'**/ 



3134 

.1-1:55 

3136: 

3137; 

3 13a: 

3139: 

3140: 

3141 

3M2: 

3143 

3144: 

314'; 
314b: 
3147: 
31 Vfc: 
3149 
.3150; 
31 £1 
3lt>2 
31S3: 
'.Hi, A 
3165: 
3156: 
3167: 
31 58 ; 
315b: 
31 H>: 
3161: 
3 1 d-2 : 
3:i f 3: 
3164 : 
3165: 
316c: 
3167: 
3163: 



if ty??num - int-:uer>type them 
dc ; 

C'LL KNTEK$VAR*ID(0,SP-,LABL$ENTHY>i 
CALL ENTERiLABFLJ 

end; 
end la pel$ maker; 



/ ^ v * * * * >:< ?:? >:- * -:• >:- * >> * * * * * :y $■. .* # « # i;= ; ;: 1 : # # ;:: > 



, 4 : # * * £ * * # >? * jjl * ;{< 



: - : USEH^TlfPE - THIS PROCEDURE PERMITS THE * 

* PLACEMENT OF USf'-i DEFINED TYPE3 IN THE * 

* SYMBOL TABLE. * 

USf.R$TYP: PPOC(A); 
LCL A 1* V T £ J 

TYPEUccT-srmL; 

IE 1GQKUF$0NLY(SP) THEN 

CALL F4f()!t( 'DT') » 
CALL FNTFhiVAU<'ID(e,SP,TYPF$DCLE); 
IF NOT PRESENT THEN 

C*LL LIMITS(3); 

APTRAPDR^SBTBL? 

BYTEPTS-A? 

APTLADD}-APT((ADDr»i; 

ADL'RPTK-PAi<£NT?TYPK; 

SHfFL =SrifHI,^3; 

emd; 

END USEIoTYP; 



/•vK'i 






. >;; .-:• ;Jt :;: >;: ;,; ;ji sj ^m, : - - j; ; : . ; ; t ;£ ;■ /■ $ :;; )•,: ;; t j|; 5;; : ; ; $ $;: * -.* 



* SF.TSAWK$BI.0CK - THIS Pi'j'OJKtojP E i: 

* CALLED UPOH DETEkMINATK.'i i"f * ;•: JB.fOU TIME 



3171: 

31?^: 

3173: 

3174; 
3175: 
3176: 
:*177: 
olVri: 
3179;., 

31P1: 

3t^:; 
3l7j3: 
318-1: 

3186: 

31-W.y: 
3 1 69 : 
3190: 
3191: 
3192: 
3193: 
3194: 
3125: 
3196: 
319V: 
■3193: 
3199: 
3LiH': 
?.WA : 
3i>fe : 
3^3: 



BLOCK. IT INCi'IHFMTS T:!E PKT BY 0N5 LOCA- * 
TION TO PtttHlT TIT'S INSERTION OF THE S P'-t''-* * 
AND THIS ALLOCS KOh P ECUHS1 V F CALLS. * 



S;;;:;ii::**>: ^;^<»;:; 



;: % ;.: J|t # * ;(: ;;< * $ # >,': # $ ;;: j|< j): j> 



: ::j: t ^-***/ 



? * 



SKTS^VK^PLPCK: PHCCJ 

LAST*SBTBL$ID - SBTBL; 
IK SCOPE*>UUH > 1 THEN 
DO J 

FAS*: "* PAHMNU!1LGC(SP - : 
CALL SEP4 p A5TiPN(l^); 
ADPI-PTH = ALLOC^ADDKi 
ALLOC$ADDR = AI.LOC$ADDH 
CALL SfcT$PASr$PN(V); 
TFMPhDPt;' - BYTiPTh AND <iY?llt 
CALL <1EM$AGDR(LDI l ,T itiPADDR ) 
CALL SET$PAST}PN(10); 
C A LL G KNi A DUI- ( L IT ft , A DDhPT P. ) ', 
CALL SK.T$PAST$PN(12); 
CALL fi'KNi'A llM ( LIT-A.. ALDRPTR ) ,* 
C ILL GENEhATF.(SAVP) »' 

end; 



/ :'f ■'.• A- ■'.• ■'.■ >'.• i' ■■'.' j'.: fc .;• >;=;;: 



SBP 



.#/ 



!• =! : # >'.- >'.• ; l* ♦ v * * # # * >!« >j£ >S 



HF.«D$MJD$BLOCK - UPOM hKCOGMITION OK A 
SUBROUTINE'S HEADING AND ELOCK, THIS 
PROCEDURE- IS CALLED TO GSfWHAT* REQUIRE?' 
t:ODF FOR U-HSAVINO THE S IJRI.OU'i'l N r 'S 
P/KAKETERS IN THE EVFiNT OK RECURSIVE CALLS 



«;=#*<< ••:«#*/ 



Hi : A|)^N^LK 
BASE = ■ 



PiiOC 
PARMNUI'jLOC{Mi> 



CALL SFf^P.ASTtPiM 12) 



3206: 

3 HP?; 

320" 

3209: 

321-0: 

321). 

3212 

3213: 

3?1 I: 

321b: 

3216: 

321?; 

321s: 

3220 

3221 

.^222; 

3223 

3224 

3225, 

3226 

3227: 

32 2h 

322-i: 

3230 

3231 

3232; 

3? 33 ; 

3234 

3235; 

323f' 

Z 23? : 

3 2 38 

3239: 

324.0: 



END 



CALL G 
CALL'S 
CH.L 
CALL C, 
CALL B 
BASE - 
SCOPF$ 
CALL G 
CALL S 
C.U.I G 
TFMFAP 
CH.L G 
CALL S 
CALL G 
CALL G 
i?EAD$N 



FTi 
P# 
FNE 
HE A 
PA 
HUM 
RMR 
FT$ 
FN$ 
DH 
fNi 

et4 

ENfc 
?BI. 



ADD 
PAS 
ADD 
HAT 
KH 
hMM 
= SC 
kAT 
PAS 
ADD 
- 
ADD 
PAS 

ADD 
HAT 

k> 



|;(LI 

T$PN 
H(Ll 
E( UM 
I*1XS 
UMLO 
OPES 
RUT 
T*PN 
H(LB 

m; 

H(LD 

,t£pn 

R(LI 
E(ST 



TA, ADD'.'FTit); 

(10); 

TA.AruijpfMj ; 
sp); 

c(mp); 
uuM-i ; 

n); 
(14); 

L, (-M/DitPWHl)); 

II , TEMPADD.H )l 
(12);. 

TA.ADD.iPfH); 

di); 



/ <• >: : »;= v ^ ; >: # ♦ >r * ♦ »; ; >: ; »:• ;'.- $ v & * * * ;;• ♦ * >;= % & ^ * & * >:< # v ;)« # >;= >x % ••■ >'.' # # w >:* >:= # * 

J01?WAHD$SUbHOUTINF - IN THF EVENT OF A * 

* . FOftVAKD DEFIED SUBROUTINE., THE ALLOCATED * 

* SPACVS Hi T.H-R PUT FO.t THE ROUTINE AND IIS * 

* ASSOCIATED PARAKX/mS AKE DE-ALLOCATED AND * 
:;: WILL BE KFALLOCATPI) AT THE POINT OF THE 

* SUI'HOUTINF.'S DEFINITION. * 

. :■'.• v *.■ ■:■ ■: A~ A ; ■ < >:< •,- p ■.' ■■'.- ■■:• ■■:■■:■■■: ■,■ •> ■:• ■■:■ ■:■• >:■ -i ■-;. >:< ■■:• ;; *; •'.- >'.■■ >:• »j P * ■■','>'■• .;: p p # # * »> $ # y,; * / 

yW-DiSU'B'WN: PrOC; 

SCOPE$NUM * SCOP/fiNUM - 11 

Al'TlJADOH ^ PA3AMN0-Mi'O.b * 3J 

ALLOCS A DDR - ADDttPT; ; 
£N,D FWDiSUi^TNT 



GOTtPAHAMETERS - THIS PkOCEDUHE IS CALLKP * 



3?41; 

3242 : 

3243: 

3244: 

3245: 

3246: 

324? : 

3?4h: 

3249: 

32 16: 

3251 : 

3252: 

3253; 

3234: 

3255: 

3256: 

32 o?: 

3253: 

3253: 

326tf: 

32t.l : 

3262: 

3203: 

3264: 

3265- : 

3266 ; 

3267 : 

3268: 

3269: 

32?f: 

32V1: 

3*72: 

3273: 

32? I : 

3275: 

3276: 



* ONC? AIL A SUBROUTINE'S PARAMETERS HAVE * 

* KEEN RECOGNIZED AND ENTERED IN THF SYMBOL * 

* table. THE NUMBE] OF parameters AND THEIR * 

* ASSOCIATED TYPE ARE THiiN STORED IN THF * 
^ SYMBO'L TABLE. . » 

:\i $ * * .;< * :;: fr >;. ^ v »;. # £ ; ; : £ :;:::; ^-. j;. ; ;; >;; # :-I >), j(; ; ; : ^ t ,; : -^ $ y t -j, $ $, j;4 ..•; ;;c .;. } - t v ,;, .,, ,.< ,.. #%% t 

GOT$PARAMS: PROG J 

APTrfADDi - PAKAMNUfil.CC; 
BYTFPTk ^ PA RAMI* UM; 
CALL F,NTR$PRM$TYP» 

END got^params; 



/ 4 # * * £. i\: :\i * }•; # :|; * ,;. ,|< £ ^: £ ,,; £ * ,;; , ;: jj. ,; ; ,; : .;; , , ,; ; £ ... j.^^ - ;i ,.< X .., fc ; ;< >). ,; ; ... £ .; t . ;< ^ ... .;, 

* SKT$GP$TYPE - THIS PROCEDURE IS CALLED TO * 
,* LOAP THE TYPE OP OPERATOR USED IN AN EX- * 

* PI.ESSION. * 
»;• <• * ;• * -•;• >>. * »:• * * « s;« >;.-;;< :;; ^ :.; * ; ;: ,;: # < : : ; : j^ $ : ; £ $ >;< # $ ^ ^ : ; : ,.. ^, <; , ;: ■# ; ; £ #$;;;$£ a # / 

SET^,OP*TY?E: PROC(A); 
DCL A HTE.; 

typr$stack(mp)-a; 

END SETiOPiT'YPEi 



/ *.• >> * * v * >:> * * >;= * * a* j;; »j j;.- ;;. >,-. .;• »;< * # ^t -.;; $ $ ^ t : >;. # s-c •,;« );; ,;, ; ; ; ; ;j ,; s s ; t & ,;. ,; ; >^ j: s % % % # j>, ; ;, 

*' CAI.L1A$PR0CEDU>E - THIS PROCEDURE IS CALLED * 

* TO GE.^HATE INTERMEDIATE CODE UPON * 

,;: j-NVOKIMS A SURKOUTINE. THE NUMBER OF * 

*_ PARAMETERS RtQUIRtD IS ALSO CHECKED. * 

CALI/^A/vPiCr: PROC( A); 

DCL A BYT K? /-TRUE OR EALSE *■/ 
hEADPAPMS - EALSf; 



3 

277: IF A TKFN /* THE S tlpi(0u' r; t ■'" 'MS PABAMFTEHS */ 

327;:>: 150? 

3279: IF PAlVHtiUM (MP , < • P AhMM JM(SP-1 ) THEN 

%£b&i CALL EKR0R( 'PN'); 

32*1: end; 

328?: IF SHP( F0KM$FI ELD( MP) ,3 ) THEN 

3283: DO; 

3284-: IF FOiiM$ EJ EI.D( MP ) = 0DHTHEN 

32e5; TALL C,m *BU I LT< IN 5 

32«6j ELSE CALL fc$ UPROCEDUIt £ J 

3287: END! 

3288: EI.SF DO,' 

3269: IF FOHM?FI ELD(MP) = FUNC^KNTHY THEN 

3290: CALL I.OA L$ VAHI ( MP ) J 

3291: ELSE DO ; 

3292: CALL GEN iADDH ( PHO ,LAt FLSTACK ( MP ) ) ; 

3293: CALL GSN £. : i AT K( OIL ) 5 

3294: END.' 

329 b: END; 

3296: END CALL$A^PH(JCi 

3297: 

329b : 

3299: / * '■" '•' * : ' - ; ' ; ; -' : ' ; * '•' '■' "■•' '•' '•' '<" ;;: : - - ■■' *■■' '•■' : ' : ■'* ''<• * J ' ; '•- :f '•' '•' '^ : "' * '' : ; '* '•• v •■' # '•' '•' * * * '- : * * * * 

3301:: * CCTiFUNCTIONiTYPE - THIS PROCEDURE SNTStiS * 

33G1: * THE TYPE Op THE FUNCTION INTO THE SYMBOL * 

3302: * TABLE AND ALLOCATES A POSITION IN THE PKT * 

■3303: * FOP THE FUHtlTJON 1'ALUE TO BE STORED IN. * 

3 30 1 : * ''•'' v '•■ '•'• '•' '•• ^ •■'■ '<■ * "•■ *•• *f * ■'•' * '•• * * * •>' # * * '•= * * * * * * * * *r # * * * <« * ■( >'•' *#>:<**/ 

3303 ; 

330B: GO'MFUNC*TY?£: PROCJ 

3307: 'bASF=PAHMNIIMLOC(MP) J 

330f.-: CALI -SE'i'iPAST^PN ( 16) 5 

3369: fcYTH'Th-SRl( ALOCbAS ICTf P ,.! ) OH VA;i$?NTrtY; 

3310: CALL S ET^PAST^PN ( lrt) ; 

3311: ALL(;C$ALDH - APlKPT^; 

3312: ALLOC'yADDH --■ ALLOC* ADD- > ALLC^CTYJ 



33T3; END GOT9Fl!\'C-?T5fPK; 

5314: 

331-5:; 

331 6 • / * * * * '■' * * * * * * * * ** * * ;; * '•' >,: * * * * * * * * * * * * * * * * *'* * * * * * * * * * 

331?: * KHDSPHGfiHAH - THIS PROCFDHE IS CALLED UPON * 

3?' 18: * 1JCO0NITI0N OF i'hi END OF A PROGRAM. IT * 

331-9-: * PRINTS OUT THE ERROR COUNT, CLOSES THE * 

332U: * INTERMEDIATE f ILK, WRITES THE SYMBOL TA^LE * 

3321: * FILF, AND INiOl.MS THE :?«OGF AMMFR OF PROGRAM* 

5322: * COMPILATION- * 

'VSy* ' •'"'• ''•' '• ; -^ y > ; **'>*<• **<> >*>•■.«* *>> * * £ ;'•:** »S »:«. *■ * ■>:< * # •:■ * #!;«##*»;■ %&&&&&&%/ 

3?i'4 : s 

3.52b: FNDiPhOdRAM: PHOC! 

3326: . CALL PRlNT^ERKORJ 

5327: CALL PKlNTCH AR ( ' ')? 

332f : CALL CRLF5- 

3329: IF NOT (ERROrtCOUMT > sd) THEN 



V< 333 P: DO? 



3331: CALL GENfA DDR ( ALL , A LLOC;. ADDR ) J 

3332: CALL GENKR ATK( s'NCP) i 

33 3 34 end; 

3334: call uk i'tsin t?ei lfj 

333h: CALL MPVEiSBfBLJ 

5336: CALL CLOSE' I NT' F IL J 

333V: CALL. PlilhT(. ' COMPILATION COMPLETE, s? 'j J 

333h: CALL MO fi 3 I 

3339: END FND$PIiOG h AM; 

3310: 

3341: 

''. '1 4 ' > • /*':•?;■ X '■'.• >l- »!« :'.: X: * :|- * >!• :;-* # -!• ■:■ ».< ■'.■ :!'• v 'I' :':*;?" »!* :!' & # * >'.! >? >* fc * v ! * * * * * : ' ; ♦ # * * 

3343: *' Ar'fAY'iOECLARF - 'IRIS .PROCEDURE DETEhMlNES * 

3344: - AVP ST(l((..S SYMBOLTASLE INFO ON ARRAYS. * 

3345* -- THIS PKGCFDUM* F'-ILS TO MAKE USE OF THE * 

3346: * PARALLEL PARSE STACKS. * 

**, '* A '7 • &*;•■# *1* &#■>!*£ '&& -&*'.• /• •'.%&•'; -^ >'.>',•', *&A*'V >'< ><>'M',* •.;;# & £ •#%•&%■?;%,•■ *>*!«#-■& ■#&*&■# v / 
334K: 



I- 



3349: 
33i*: 
3 3 hi: 
33S2: 
3353: 
33o4: 
335h: 
33iV6; 
33iV?: 
33 5S: 

<j *> D 'j I 

336^-: 
3361 : 
3302: 

3364 : 
3365: 
3366: 
5367 : 

33 6£'.": 
3369: 
337 i\l 
3371 : 
33 V* : 
3373: 

3371: 
337 hi 
337f.: 
3377: 
337o: 
3370: 
3310: 
3381 : 
336? : 

>/MA : 



M M'$Df CI, 'PF: PhOC! 

IF AHKY$PTH = "1 THEN AkRY$PTH05 

HALL KNTR$CPLXVmU7H)i „ v , ™ V. 

K! t YiDI-^Di^PTh*fthY<Dr.<.ADhiPTI'.-NUMiAhKY$DIMUrthI$PrK), 

ARRY$EASE=EAS&5 , • :.'■' ,.- 

- CALL LIMITS! (NUM$AnkY$DlMUrthY$PTR)»2)+3), 
CALL SETADPhP'l M Sjj 
BrrEPTH^NUH'?ARHY>l!lM( AkRY^PTR ){ 
CALL SFTADLHPi'u(6)i 
AD1M.<PT!(=TYPFM.0CT; 
CALL ALLC^OFFSLT(TYPEHOCT), 
BASE*ARRY$BASPJ 
CALL SETADDKPTM8); 
ADD!<PTR^ARHY$QTV(AHRY$PT!{) j: 'ALIC$QTY; 

CALL SETAEDRPfH(l0)i 

BYTEPTR-ALOCBASICTYP; 

CALL Sr'TADDRPTRdl); 

ADDRPTH - 00 Hi 

SUBft$FORK = NUM$Ai'(l-.Y$DIM(AKKY*PTH) - 1} 

DO WHILE SUBRiFORM < 2bh; 

cm-S2TADDhPTIi(13+(2*SUBR$FOkM))5 

ADD^PTK = AkFY$DlMi-n/.!;Y*DK$4Dh^PTP »:$UHR$pORhU ) » 

IF SUPH$EORM - (NUHiA.i;RY$DiM(AttRY^PTR) - 1) THEN 

to; 

APTRADUh - ADDRPTR - 7 J 
T:'.riPAULkl - AUbHPTR: 
A?TRAtEK - AP'i'RADDH * 6J 



FLSV to; 
APThADDi- 
TEMPADDR 
APTRA'LM 
TVHPAL»Di', 
PPTHA'DDit 
TKMPALLss 



( *i,HY^DlHFN{ASY^D^AI)k$PrR + SUBR^F0RM+2) + U); 

ADDRPTi; 
APTRALDR + k\ 
TEMPADDR * ADDPPTI-, ! 
ARRY$!)If1Fii(Ai:nDM^ADR'?PTH-'SUBH?F0RM+l)+7; 

- A! I'RPl'R? 



I... 



33b£ : 

.536? : 
3383 : 
33fc3: 
3390: 
33yl : 
3392 ; 
3393: 
3394 : 
339S: 

33 56: 
339V : 
339b: 
3399 : 
3400: 
3401 : 
3402: 

34 03: 
3404 : 
34 05: 
3406: 
34 0Y: 
34 0'b : 
34*49: 
3410: 
34 11: 
3412: 
3413: 
34 14: 
34 lb: 
3416: 
341?: 

3419: 
:M?(«: 



A'P-TRAM* - Ai'TK.AiiL.* + 6,' 
AD.ORPTR - TEMPADDrtJ 

N'p; 

TKM'PADURl - ADDHPl'R * TEMPADDRli 
CALL SITADDHPTU(H); 

AUBHPTR = TEMPArm'.l «■ ADDRPTRJ 

SUBI>$F01,H - S.UBk^FOl.M - 1? 

end; 
typk$loct-base; 

SR1bI. = SBTbL»-((MUr.iAi(!(Y$DIM(A|;!-Y$PTR)-2)+e)» 
AHR¥$PTH=AhRY$PTR-i; 
END AHA YvI>ECLAHE; 



/ & >'.■ * £ >|: "I- * -I * * >',< vie .;. ■-;: Sc ;;; ..c ;',: & ;;. ;;«;; -.;; ^; ;> :|i .;: j|: s[; £ # /,; # ; ; ; <: ; ; s ;;; >;< :;? * v ^t x< * * * * * 

* FlNDiKELOP - THIS PROCEPUti? DETERMINES * 

* WHAT HNEUHOMiC SHOULD BE GENERATED FOR ANY * 

* i-FLATIONAL OPERATOR. * 
**'!' v v A- >'.• ■',• A •'!' v i- -,• •;■ -^ # v -!• '!• >r v •■'• >'.• v * ; ! : '•■' *!• >! : A >£ '•',• # >!= # » • v 1* 'I* si; A 'I' >S< & »!< v X s # / 

FINK-RPLOP: HOC) 
DCL A BYTE; 
In) CASE (TYPEvSTATK (HPPl )-8)J 

A = EOT. I ; 

h = NEQJ ; 

A - LSQ.M 

A - geoi; 

A i LSSI, 

A * GiiTi; 

IF FXPRESS^STK(SP) O 6kl)iftPS THEN CALL FhROrt('CE'); 

ELSE A = xin; 
iMi /■* CASE (TYPE<STACK(MPP1 )-«) '*/ 
DO CASE FXl'JV F5S^STK(S P) ? 

/* ORD TYPK •••'/ 

IMA = LSSI) Oh (A ^ i3-:tt:i"J THEM CALL ERROR ( ■ 'CE \' )\ 

ei.sf if a <>: x in then a - a + iy; 



34.21 : 


3422: 


34?:': 


$\%ii 


3425: 


34 26: 


34 27: 


342S: 


3429: 


34 30: 


3431: 


."432: 


3433: 


34 34: 


3/4 35 : 


34 3 t: 


3437: 


3436: 


3439: 


34 40: 


3441: 


3442: 


3443: 


.34 44: 


3445: 


3446: 


3447: 


344b: 


34 4 9>: 


34 50: 


3451: 


34 52: 


34 53: 


3451: 


34o5: 





■/.* I NTEGEl. TYPE */ 

{ /* NO OFFSET RFQUIKLD *'/ 

/* CHArt TYPE ■■■■/ 

i /* MO OFFSET H'QVJ I i;ed */ 

/* REAL TYPE V 

A =■ A + 7; 

/* STidNG TYPE */ 

A = A ■ + 13 J 

/* BOOLEAN TYPE */ 

J /* NO OFFSF.T t-.ECUI KED */ 
FNFj /"- :; OF CASE SXPhFSSiST K ( SP ) */ 
CALL GFNEI»ATF.(A )', 
FXPRESS$STK(HP) = lOOLL'AN^TYPE; 
END FINISH FLOP J 



f i .... . i»l •.•?. *.-*.-*. V '." 



:: * x< -r ■:• * v fc ■■:■ >:• * * >•- « # * * * # # * # * * * * # * * * * * $ $ * * * * * * * * % $ >j: * * ijt.* * « y 

|; ;;; »;; # ?,: >;t ;J: s|; s|; >;; £ :;;:>* # ;J in :^ y i;« ; ;< s ; ; >« ; ; t # ; ^ sjj .-;; ^5 jj, v ^ $ ,; t ,•< ^ £ y f # # ,; ; # # ^ ^ ,>, £ >;<##.;<•/ 



IF LISTPROD THEN 
CM.L PfilNT$PPODJ 

i)0 cask production; 



/ ;|; »;: # >> * * # * * * .-;; * * j',: >;t * ;;< * ;|: * X' >:< >:. >;. ;•.< t; * * £ * j;. ■**,:#** %%%:•* :•.: -t >;< )}: $ * i,1 * >J: fc «< ;|; >;: * ,;; # >;< ^ # ,;, % -•< ; ; ; $ ,jt ,; : . ;! # .;. ; ; r / 
/ * ^.- * * * * :; >;< ,;< >;: si: >;. >•( % * »;.- >;t ,; ; ,;. : \ ,;: ,,< ; ; ; ,; ; ,; ; ..; s ; ; ; ,; ; ^ ; ; ; ,;< ^ ; u ^ ... ,;, o. ^ ,;, ,.< ,.. .^ ,.. ,.. .j. #;> .., ,,. .j. ^ Jj( ^ ^ ... ^ . <( ^ ,,, # .. t >;t ,j. ^ ^ ^ ft ^ . } .. ^., f 

/*;•';"_ ;. PRODUCTIONS . ***/ 

/ ••:■ •> « * si- * * >:- << >|c * *. * >;. ;;< ;>.* * A- >l<- *■ ~. * ** * < * =:■• * * Jr * * <t * * >> * »:< >:< »> $ * * * >;c « * * s^ « -.;t « * s^ * * #>)t « # * <c # >>: * jjt >;« / 
I s;- * -:< # >;.- ^- .> ;;; * ; ( s|: ,; 4 ,|c ,;; j;. ; ; ^ ,;, >;: ,;. ; ;< ,; : ,; ; ; ; r >;. », ,;< .; : ;< ,;. ;;, ; ; t ,;, s ; t % ; f .;. % ., f ,., >; . ,. ( ,;, .;, ^ ^ ,.. .., Jj; ff ^ } .. £ ... } .. } . f ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 

/;:"•"';•' . 1'Hi FOLLOal.NlG IS THE I^PUT GHAMMAR 



: >;- :'.t ;;:;,. ,|i .;. v;: * >|i * >^ »;« j^ jj: S« ifffi if if >;; )[c >;< >;; ;}: / 
/ <• '!' »;■ »^ >:; >:< -I- :'< * -:•;;;>;. j'.- >:• .;; ;:; ;;: £ « >;< :;i ^ >;. >; : >;s >;. * .;./•. .^ ;; ; ; ;t j; ; .;. ■+: a >;. >;: ,;, ;; : j; ; ; ; ; ,; c j;< ,^ ,; s .;< ,;, j;c £ ^, <( ^ ^ ,;. jf, ;t ^. ^ ,.. : (( ,., ^, jj, £ ,. c jj. jj, ... ,j. , 



Mb'?':: /* CASF ?■ NOT USUI) */ ; 4 

345h : : 

34:>9: /<■■ 1 <P;;0JH/*n> ::^ CPHOGRAM HF,ADING> <PL0CK> . ~ */ 

3460: CALL ENB^PHOGh AM? ~ " —• : . 

: ^61: ./* 2 " <PhOCF:i)Uf F HFADIN'^ <BLOCK> . "■ */ 

346^; CALL FND^PROGKArS 

3463: /* 3 " ^FUNCTION HE*riN0> <BLOCK> ,'■ " #'/ 

3464: CALL iND$ PROGRAM? 

3465: 

3466: /* 4 <PRt:GRA> HEAPING"* : : PROOhAM <"PROG II)ENT> ( */ 

34.67: /*. 4 U'FILF !DENT> ) I ' */ 

3466: DO? ' 

3469: SCOPV^MU-M = 0J 

3470: SCOP.E(5::OPL'?.NflH) ^ SBTBL; 

3-171: SC0PE$NUN * 1? 

347?: FN»; 

34 73: 

MW: /'- 5 < X (•' I L F IDt't:T> ::- <FILE IOEN'Ti */ 

3475: J ' 

34V7- /::i • 6 * <XFILE IDE "*T> i <FILE IRENT> */ 

34 7 b : 

3479: /* 7 <PROG IDE'm : : •= <f DF'ITIF tEfc - */ 

34 BO: ; " ■ 

3461: 

34)-?: /* B <FILE n>iN.f> : : - <IDFNTIFIEiO ft/ 

3463: CALL £NTEH$V Ahi 1 1)( 16 , SP , Fi LKiFNTKY ) ; 

.-3464:.. 

3465: /- 9 <BLOCtT ::- <LDP> <CDP> <TDP> <VDP> <PSFDP> <STMTPV */ 

34d6: ; 

3467: 

34e;i: /* If. <L\)l J > • :^ 

3469: CALL SCQPF$1 RANCH 5 

i49C: /* 11 ' LM'tL <LAHKL STRING > J .*/ 

3491: CALL S'GOPi'$KI.ANCH ; ■' 

3492: 



V 



3493 : 


/* 


3494 : 




3495: 


/* 


3496: 




349?: 




34 9B: 


/* 


3499: 




3500: 




3501 : 




3502: 


/* 


3503 : 




3504: 


/* 


350b: 




3506: 




350? : 


/* 


'6§W:i 




3509: 


/* 


3510: 




3511: 




3512: 


/* 


3513: 




3514: 




3d 1 5 : 


t 


3516: 




351?: 




3518: 




3d U: 




3520: 




3521: 




3522: 


P 


3!f23: 




3524 : 




3525: 




3526: 




3527: 




3528: 


/* 



12 <LABEL STHINO ::- <LABEL> 
CALL LABEL$MAKE!-; 

13 " <LAPEL STRING > , <LABEL> 
CALL LABEL$MAKEK; 

14 *LABELY. : ''.■■-■ <NTMBEK> 
IF TYPFNUM <>■ INTEGER^TIPE THEN 

CALL Ri<R0it( 'LS '){ 



15 
16 

1? 

18 



<CDP V , 



CONST <C0NST DEF> t 



<CONST l;tF> ::- <IDENT CONST DEF> 



19 < I DENT CONST DFF> 
CALL ENT!'$CONS'>NT!.Y; 



20 



<It'ENT CCrNST> 



do; 



<IDRNT C0NST> = 



: IDENTIFIED 



IF L001<UP$0NLY(S?) THEN 

CALL tHHOH.i 'DC')J 
CALL ENTFH>VAR$Il>(0,SP,CONS$ENThY)i 

end; 



21 



<C0NST'NT^ 



do; 



<NUMBFK N 



CALL CONVKT^CONST(POS); 
EXPHKSS?STK (MP)-CONS*»NUN>TYPK; 
tf?CPTtUVECPTI< - li 

end; 

22 ~ <sjgn> <numbe1 








*/ 




*/ 




*/ 


ONST DEF> 


*/ 


<C0NSTANT> 


*;/ 




*/ 



*/ 



.*/ 



3 29: 

3530: 
3531 : 
3532: 

0»j«.7 - ± : 

3535: 

3536: 

353?: 

3535 : 

3539: 

3510: 

354 1 : 

3542: 

35-1:5: 

3544: 

3545: 

3546: 

3547: 

254b: 

3549: 

3550: 

2551: 

3552: 

3553: 

3554: 

3555: 

3556 : 

355?: 

355b: 

3559: 

35-00: 

3561 : 

3562: 

3563: 

3564: 



DOi 

IF SIGNTYPE=NEG THEM 

CALL CONVPT>CONST(NEO)i* 
ELSE CALL CON VRT$CONST( POS ) ; 
FXPRESS$STK(KP) = CONS$NUM$n?F.J 

vecptr=-vecptr + 1; 

sign$flag = falsf5 
fnd; 
/* 23 "" <ccnstant idfnt> 

do; 

EXPhFSS$ST.K(MPi = CONS$IDENT$TYPE» 

vecpth=vecPth+i; 

CALL sto«e<»const; 
end; 
/* 2 * " <sign> <c0n3tant ident> 

DOi 

IF SIGNTYPF=NFG Til FN 

EXPHESS$STK(MP)=CONS$SJDFNT>TYPE; 
ELSE EXPHESSiSfK(M?)«CONS$IDENT$TYPE; 
tfFCPTK^I/FCPTh + i; 
CALL STORED CONST; 
SIC:)$FLA5 = false; 

end; 

/* 25 " <STK1NG> 

do; .'■"-•; 

exphfss$stk( mp) -consist retype; 

VECPTH^VECPTR'i; 
CALL STOhE^CONSTJ 

end; 



.*/ 



*/ 



/ ■»• 



26 <CONSTAN'T 1DENT> 



2? <SIUN> ::= 4 
DO? 

SIGN$TYPE = POS; 



<1DEHTIFIEH> 



V 

7 



fj 
t— > 
0\ 



3565 
3566 
3567 
356S 
3569 
3570 
3571 
3572 
3573 
3574 
3575 
3576 
3577 

3578 
3f.?y 
3o«0 
3581 
35fc2 
3583 
3584 
35b5 
35r:6 
3587 
35fc;8 
3r)89 
359F 
3591 
3592 
3593 
3594 
359o 
3596 
35d7 
3598 
359 l J 
3600 



sign$flag = true; 
end; 

/* 28 

do; 

SJGN$TYPE = Ntr,; 
S1GN$FLAG = ThUE; 

end; 



/* 



29 <TDP> :: = 

case$stmt=false; 

30 " TYPE <TYPE DKF SThlNO J 

cask$stmt=false; 



31 

32 



<TYPE Cef STIUNG> 



<TYPE ID> 

<TYPE D?.F STRING> ; <TYPE ID> 



33 <TYPE II» ::=• <TYPE IDS> = <TYPE> 

ro; 

APTi<Ar/^H=TYP r ^A!)DV; 

apdhptr=typeHoct; 

END. 



34 



<TYPE IDS; 



<IDENTIFIER-> 



do; 



IE LOOKUP$ONI,Y{SP) THEN 

CALL ERROR ( 'PT ' )-> 
PAI<FNT$TYPE=S&TbL; 

CALL ENTER 4 , V Ah > I D( 78H , S P , TYP B«. ENTH Y ) 5 
IF NOT PRESENT THEN. 
DO,' 

CALL LIMITS '2); 

TYPK$ADD»i=S"HT bl,;' 

SBTBL-SBTQL»2; 
EN D ; 






*/ 

*/ 

*/ 
#■/ 

#/ 



3601: 
. 3602 : 
3603: 
3604: 
.5605-: 
3606 : 
360? : 
3603: 
3609: 
3610: 
3611: 
3612: 
3613: 
3614: 

3616: 
3617: 
3613: 
361^: 
3620: 
3621 : 
3622: 
3623: 
3624: 
3625 : 
3626: 
3627: 
3626: 
3629: 
363 to : 
3631 : 

.5632: 
3633: 
3634 : 



/* 

:/* 
/* 

/*' 

/* 



/.* 



■/? 



ENOr 
35 
36 
3? 



<TYPE> ::^ <S1MPLE TYPE> 

STRUCTURED TYPE> 
<P0lNTFh TYPE> 



3f! <SIMPLE TYPP*> ::= <TYP.F IDENT> 



39 



40 



CALL fnth$sub*nthy; 



( <TIDENT STRIMO ) 
<CONSTANT> .. <CONSTANT> 



41 ' <YYPE JDENT^ ::^ <IDENTIFIEH> 
IF LGCKUP$PN$II-(SP .Tm^NTHY) THEN 
TYPFHOCT^LOOrUPiADDitl 

visit do; 

CALL EhIiOR( *Tl '); 

TYPl'H')CT»..EUILT$IH$.TBLj /* INTECt'h DEFAULT / 

end; 



do; 



<TIDFHT STKI.H0> : ;- <IDENTIFIFh> 



TYP!f$OhD$NUM = P; 

CALL USEh$TYP(TYPE !?0hD$NUM) 






1v5 



do; 



CJMDENT STRINO , < ID'JNTI FIEn> 



''fYPF^Oiil^riUM^TYPiiORDiNUM + l J 
CALL USFfc*TYP(TYPK(()HD$NUM); 

knd; 



*/ 
*/ 

V 
V 
*/ 

*/ 



*/ 



'*/■■ 



/<■ 



4 4 ("STRUCTUtiKP TYPK: 



<U-MPACKED STRUCTURED TYPE> 



to 



3637 

3639 
364.0 
3641 
3642 
3643 
3644 
3615 
3646 
3647 
3648 
3H4l> 
3650 
36r>l 
36 b 2 
3653 
3664 

*v c\ p £, 
o o «- J 

3656 

3657 

3658 

3659 

3660 

3661 

3662 

3 663 

3664 

3665 

3666 

3667 

3669 
3670 
3671 
367?- 



A* 
/* 






45 
45 



4 6 

47 
48 
49 



PACKED' 

<U^PACKET) STRUCTURED TY?£> 



<UNPACKED STRUCTURED TfPE> t ■'.'■■ 



/* 5f <'arkay r*PE> 

/* 50 

CALL ARAY^DKCLAREJ 



<ARRAY TYPE> 
OIECORD TYPE> 
<SF.T TYPE> 
<FILE TYP£> 



ARRAY [ <INDE): TYPE STRINO ] OF 
< COMPONENT TYPE; 



f A 



51 



do; 



< INDEX TYPF STRINO 



<INDKX TYPE> 






if arry$ptr^akry$nest-1 then 
do; 
call error ( 'an'); 

A»:YiDM&ADii(PTH"A.hYiDM$ilDh$P , rR-N-UM*AHftT*DIh(AhKY$PTR)J. 

end; 

else arryiptr- arhy^ptr+ij 

M.hY$niM$PTR-P; 

AlrYjD>)$ADR>PTR-ARY$DH$ADR$PTRii; 
ArfPY^LiMENf AhY$DMiADR$PTR)-TYPE$LOCT; 
AKRY$QTY( A-kRY'SPTR )«AI$NDX$0FF5 t'Ti 

num$akhy$dim( arry$ptr)-i ; 

end; 

52 " <ind«'x type strino , 

52 <index type> 

do; 






*/ 

*/ 

■*/ 

*/ 
*/ 



*/ 
*/ 



.3673 : 

3674: 

3675: 

3676 

3677 

3678 

3679 

3680 

3681 

0682 

3683 

3604 

3«e*> 

3666 
36 o7 
3683, 
3669 
3690 
3691 
3692 
3693 

369b 
3696 
3697 
3696 
3699 

\f?01 
3702 

370-1 
37t?5 
"'7K6 
371^7 
-' ?~i$M 



fit 



/* 



/* 



/* 



/■■■ 



IF ARRY$riM$PTh-MAX$AftHY$riM-l THEN 

CALL EhR0H( 'AD'); 
SI.S5 AurtY$I'IM>PTi(-AHHYiI)IM$PTa<i; 
AI.YiDMiADH$PTI. = A)(Yi-DM$ADH^PTh*-i; 

arry$dimen(aky$dm$adr$ptr)=typeHoct; 

AH!iYiQTlf(ARhY$PTrt)*AaRY$QrY(ARRY$PTrt)*AL$NDX$OFPSETi 
MUM$AKPY$DIMl Ar<HY$PTF) = NUK$AHHYiDIM(AHRYiPTH)+l} 
m D ; 



< INDEX TY?E> 



-• <SIM?LE TYP"?> 



do; 

V 
B 
I 

C 

A 
C 
A 

h 

EMI- 



^COMPONENT TYPE> : :^ <fYPE> 



65 OtECORD TYPK> ::= RECOHD <FIELD LIST> END 

ARIANT$PART(Ri;-C>NST)--=i'ALSE; 
;,SE,TYPEHOCr-REC'PAR$ADa(REC' Y .JST); 
F VAR$C.AS*VAL(HEC$NST) <> THEN 
call ukmi 'IV'); - 

.VLL SETADDPPTh(b) ', 
DDhPTR^-l'XD^OF:>T??SE(hEC$NST) ! 
ALL SKTAT,M? 1^(7)5 
DDi'PTR^ PRV^SETVENTrtY; 



<FI ELD UST^ 



56 



69 



<i'i XKD P.Au<D 



<FIXED PARV N 

<FiXED. PART> | <VAhIANT PART> 

< VARIANT PART> 

<HECOHD S'FCTION> 



«7 






K/ 



3709: 
3?ie: 
3711: 
3712: 
3713: 
0714: 
3715: 
3716: 
371V: 
3718: 
o?19: 
3720: 
37>1 : 
372? : 
37 23: 
3724 : 
3726 : 
3726: 
372V: 
37 2V: 
37 29: 

373 fci 
3.731: 
3732: 
3733: 
373-1 i 
3735 : 
3736: 
3737: 
37 3fc: 
3739 : 
3?ltf: 
3741 : 

374 2 : 
3743: 
374 4: 



/* 






t>e 



61 



''RECORD SHCTI0N> 



do; 



<FIXEU PART^ J <RECORD SECTIOM> 



<F!ELD IPENf STR.1NO : <TYPE> 



*/ 



UN. 



CALL ALLC$QFFSFT(TYPFH0CT)5 

/* ALOCfeASICTYP AND ALLC^QTY ARE SET '*/ 

IX) PTRPTH - TO ht;C01<HPTh» 

BASE ~ hZCi A D iv ( PTIiPTR); 

CALL SET$PAST$PN(9); 

BYTEPTH * ALOCbASICTYP; 

APT.-sADDH^APTI:ADDK»i; 

ADDRPTh^T-YPFHOCTJ 

APTRADDH- APTRADDR+25 

ADDRPTMCUh'OFST^FCiNST); 

CUH?OFST(HJC$NST)=CnH^OFST{REC$NST) 
+ ALLC$QTYi 
fn d ; 

HECOHD^PTh-0; 

IF FXD$OFST$PS£( RECAST) < CUH$OFST( KEC$NST).' 

THEN FXD$OFST$BSE(KECvNST) = CUP.$OFST{KEC$NST}-; 



63 

6-1 

64 



'FI ELD IDENT STRING) 



<FIEI.D IDENT> 

<FIFLD IDENT STRING> , 
<FIEI.D IDENT> 



/* 65 <field 1dent> ::= <i denti fi-er; 

do; 

IF RECOKDiPTR O 10 THEN r.ECOi : ,D$PTR-. : <ECORD$ PTR + l J 
ELSE. CALL ERROR ( 'KN ' ) i 



u 



*/ 
V 



*/ 



■J 



•^745: 




3746; 




3747: 




374 B: 




374s?: 




3750: 




3751: 




'3762.: 




37^3: 




37 54 : 




37 bo: 




3756: 




3757: 




37 f-.e : 




3759: 




376!?: 




3761 : 




376^: 


/'« 


3763: 


f 


3764: 




3765 : 


A 


3766: 


/* 


3767: 




3763: 




3769: 


/* 


3770 : 




3771: 


r.'s 


377?: 




3773: 




3774 : 


/* 


3775: 




3776: 




3777: 




3776 : 




377 'Jr. 


/* 


37«i'»: 





f> V C * A DDR ( K k'COh D$PTh ) --S BT TtL » 

call fni'fr$var$id(f8h,.sp,typf$dcle),' 
if not prssknt thfn do; 
call Limits*?):. 

APTHADDh=SBTbL? 
ADDrfPTK-^HfC'yPAli^ADHdiKC^NST); 
SbTBL-Sfi;TEI;t7; 
FND; 

if vahiant$pakt(!w:$nst) then 
do; 

fcASE-R^^DDttO'FCOi-P^PTR); 
CALL I.jMIfSf^) ; 
CALL SFTADDI.PThU) ,'• 
MTt7TR-0DFH; 

?:nl; 



end; 



66 
66 

67 
67 



6B 
69 

70 



<VAKI*NT PaRT' 



CASE <TAG FISLD> <TYPE ID?NT> OF 
<VARIANT STItlNO 

CASE <TYPE IDENT> OF 
<VAl;IANT SThlNG> 



<VAKIANT STRINO 



:tag KI fi.d; 



•= <VAklANP> 

<VARIANT STRING > ; <VARIANT> 

O'lilLD IDkNT : 



TAG$Ft'(hEC$NST ) - f R U K: ? 

71 a*HIANT> ::> <CASB LABEL LIST) : ( <FIELD LIST> ) 
i 






■*/ 

*/ 



! . 



37 ol: 

3?f'2: 
3763: 
3764 : 

3765 j 

3766: 

3787 : 

3768 2 

3769: 

3790: 

3791 : 

3792: 

•37 S3 2 

3794 : 

3795: 

3796: 

3797: 

3796: 

3799: 

380 K: 

3601: 

3 £02 : 

36C3: 

3604: 

3~stf5: 

3906: 

3607: 

3809: 
3810: 
3811: 
3812: 
3813: 
3614: 
38 lb: 
3616: 



■<* ?3 •'cask la^el list"* :: = <cas£ label> 
do; 

LAPELSTACK(SP) * U.BLCOUMT? 

LABLCOUNT =- LAflJ.COUMT + 2', 

CALL GEN$ADDH (K AS 2, A LI.C$QTY ) i 

CALL fjyNKhATEil.'Oiif (I.A«iE-LSTACK(SP) ) ) S 

GM.L GENEhA?E(iIlGH(LAfeELSTACK(SP))); 
END; 

/>:: 74 " <CASB LAPEL LIST> , <CASE LABEL> 

do; '■- 

CALL GEN>ADDKf KASE, ALI.C$OTY) J 

CALL P.ENKHATE(LOW(LABFI.bTACK(MP) ))» 

CALL GFNEhATE(HIGli(LABELSTACK(MP))); 

end; 

'* 75 <CASE LABEL> :: = <CONSTANT> 
IF CASF?STKT THtN 

do; 

C.«3FiSTK(CASE«eOJNT) = CASE$STK (CASL$r0UNT) + 15 
DO CASE EXPHESSiSTK(i)P) J 

/* UUMd ilir ■'■■/ 

HLCtOTY - CONVr :.TI (3P , POS )} 

/> identie) lh >7 
do; 

I-F NOT -LOOK^UPtOM.nSP) THEN CALL EHKOR ( 'DT ' ) 5 
ELSE no; 

MSE *■ LOOKl)P$ALDi{; 

CALL S> ! T$P*Sf$PN(7)j 

allc$qty * addrpth; 
end; 
end'; 

/* signed identifier #■/ 
do; 
end; 
/'* string type */ .'• 



*/ 



*/ 



3817: 

3818: 
3&1P: 
3820: 
39? 1: 
.S622: 

3824 : 
38 2b:: 
; 3826: 
3827: 
3828: 
3829: 
?>HAP: 
3834 : 
3. ".3 2: 
38: 7-:';: 
3K'-4; 
3836: 
383(?i : 
363?: 
383B: 
3b39 : 
384tf : 
384 3 : 
3H4 '?: : 
3843: 
3844 : 
384 b; 
3846: 
364?: 
•3?-4s: 
.3fc%-J 
38btf : 
38i)l: 
36 b2: 



F. 
EN' D 
ELS 

do; 

IF 
D 



ni>; 



i: 

V* 



NOT 
CJ 

V * K I A N 
VAR$CA 
VAK$CA 
CALL A 
II' TAG 

do; 

TAG 
FAS 
CAL 
BYT 
CAL 
CAL 
ADD 
APT 
ADD 
APT 
ADD 

CUH$OF 
YM I) ; 

VAR$OF 

FXDiOF 

ND» 
CALL 
THK h 



/* OF CASE *'/ 



VAHIANT*PAnT(].SC$N3T) THEN 



T£PAJ-.TO:FCiNST)=TRUE; 
S>TP(HEC$NST)=TYPE$LOCT; 
S$VAL(KKC$NSf)=AL$NDX$OFFSET; 
LLC^OFFSET(TYPFHOCT); 
*.FD(/iKC>NST) THEN 

*fd(pfc^nst)=false; 
e=k ec i a ddk ( k ecohd * ptr ) ; 

L SKTAL'DhI"trf(4); 

FPTh-9FHJ 

L SETADDHPTH(t)); 

L SETADDRPTi;(a + PYTEP'n); 

KPTh*V»liiCA3iVAL(HEC$NST); 
RADDH-APTKADDR+2; 

hP-TR-VAH$CAS$rp(nEC$NS?)i 

h'ADDP = APTi(ADDr; + 2; 

«PTK = CUH$OFSTUEC>UST); 

STlHEC> 1 NST) = CUh$OFST(HEC$NSr) + ALLC$QTYj 

ST?fcSEfi<l!X$N3T) = CUR$UFSTO.EC$NST); 
ST/y F5 X ( hF.CiN ST )=CUH$0F2T ( RECAST ) ', 



COMPAH?$CONST$VAiiIANT; */ 
OUT-INS ABOVE CHECKS THE ^ASE 



LABLb. WITH THE VARIANT TYPE */ 



CUh$OFST(|,TC$NST)=-VAi ; >OF3T$PSK(l^:C$N.iT)f 
VECPTK-=VECPiK--i; 

CONST$PTR. t CO.MSTiINDX,CONST$PN$PT!< = »; 

FN i); 



3853: 




3854: 


/*< 


oo ».>D l 




3656: 




3857: 


/* 


3658: 




3859: 




386M: 


./* 


3861 : 




3662: 




3b63: 


/* 


3864: 




3865: 




3d66: 


/* 


3867: 




38 OH: 


/* 


3869: 




3870; 




3871: 


/* 


3872: 




3873 : 


/•< 


3874: 


/* 


3876: 




3876: 




3877 : 


/* 


3978 : 




3879: 




388 iU 




3*'HU- 




3S82: 


/* 


3863: 




38 s4 : 




368b: 




3666: 




3887 : 




38dB : 


/ 



76 <SET TYPE> ::- SET OF <B£SE TYPE> 
CALL FNTRiSTh$TY-P(2?H)i 

77 <BASE TYPE> ::= <SIMPL£ TYPE) 



76 <FILE TfPE> ::= FILE OF <TYPE> 
CALLENfH$STR$TYP(2FH); 

79 <POINTER TYPE> ::= * <TYPE ID-'NT> 
CALL £NTH$STR$TYP(37H); 

60 <VDP> :: = 

SCOPE(SCOPE$NUM) * SBTBLi 

ei " VA« <VAK DECLAR STRIN0> ', 

SCOPE(SCOPE^NUM) - SBTB'L. 



62 <VAR DECLA;* STRING> 

83 
£■3 



<VAP DECLAK> 

<VAR DECLAR 5Ti{lNG> J 
<VAk J)ECLAfi> 



84 OAR DKCLAf-> ::= <IDENT VAk STKINO : <TYPE> 
CO | 

C'.VLL A LL0.fi $VAHS; 

END; 



DO; 



85 .<TIDENT VAK STRING> ::- <IDENT1 PIE«> 



VAHtPTR = 0; 

VAh$BASE(VAH?Tn) - SBTBl; 

C ALL m fn i V A Hil)( , SP , V A K$ENTf Y ) ; 

end; 

<IDENT VAR SfRINO , 



*0. 

*/ 
*/ 

*/ 

V 
*/ 



86 



^689: /r 8b < IDENTIFIED */ 

3S9i": IF tfAKPTR <> 10 TR-'EM 

;5a9i: do; 

3692; VAiUPTR = VARjPTh + If 

3893: VAR$BASE(VAR$PTh-) =-SBTRL; 

3694: CALL ENTERS Al, i I D( , S? , '/ARDENTLY 1 ', 

369£: END? 

3896: ELSF CALL EmROR('VN'); 
3897: 

3P9b: /* £<7 <;h>DP> : : ^ ,, , 

3899:; CALL SETS/.V E$BLCCK I 

3.0PG: /* 68 " <PO,<F DFCLA-1> */ 

39.01 j CALL setsave$elock; 

" 3902: 

.3904: /* 89 ^POkE 1 ; ECLAH> : :--. <PROC OR KUNCT> ; */ 

390-1: ; 

w :^^| '*. S0 ~ <PORF D£CLAR> <PROC OR FUNCT>. J */ 



n 



t 



3907\f 

it- '* CALL 9 H f :AD^?LK? K ^ ^ <PR0CKDUKf; ^W^ <BLOCK> . */ 

'Six- r * ' L " " <Pk0aDUi - E HEADIN.O <T)IRECTIVE> */ 

*0 }!,' '* cllL^MDWfBKi " < '- B,M, °" "«W»«><BLOCK> V 

iljt'? /i: • 91 " FUNCTION HEADING; <DIRECTIVE; */ 

o91H: 
3917: 

.■'391-8: :/<•: 95 <T)I HRCT I V*> :.:*■ < IDENTI i'l'rt^ ;•=/ 

3J19: IF MOT LO0KUP$OVLY{SP-) THEN CALL EHvOR { 'DT ' ) ; 

39*0; ELS 2 PO; 

3921 : fU:;p r .r.OOKUPi-ADDHi 

^9c2; CALL SE'f ADflK PTii lb ).; 

39i-'3: Ij hYTEPTR - 21 THEN CALL FWD$SUfjRT''JJ 

39?-l: FNDJ 






39%: 
3926: 
3927: 
3928: 

3930: 
3931 : 
3932: 
3933 : 
3934 : 
3935: 
3936: 
393? : 
3938 : 
3939: 
394P-: 
3941: 
3942: 
394 3; 
3944: 
394.5: 
394 b: 
394?: 
3948: 
394 9: 
39!"?>: 
3951: 
3952: 
3953 : 
3954 : 
3955: 

u.^uU ft 

39r>7: 
3958: 

3959: 
S9t-M; 



/* 



! " 



96 

9V 
9? 



vPROCEDUilE I!EADING> ::= <PROC I D> ; 



CALL GOT^PAHAMSi 

98 <PKOC ID> 



<PHOC ID> ( 

<F0RMAt PARA SECT LIST> ) } 



= PROCEDURE <irtwTIFIEH> 

ro; 

PAHAMNUM *■ 0; 

CALL EMTEK$SUHl. , TN(0,SP,Pn0C$tNTHY); 

end; 






■ /* 



99 <T0I:KAI. PArfA' SECT LIST > 
CALL Al.LOC$VARSJ 
\&& 

CALL ALLOC$VAKS; 



<F0F.MAL PAPA SECT> 

<FORMAL PARA SECT LIST> 5 
<f.0HM».L PARA SECT> 



IK1 

102 



<F<HMAL PA if A SECT 



<PARA GhOUP> 
VAH <PAHA Ci(0UP> 



no; 

Tf.MPJ'YTE - VAi(>PTR; 

DO V«.<$PAi.M$PTh - & TO TEMPBYTE? 

EASE - V>.tlbA-5E (VAh$PAr.M$PTh); 

CALL SETAIJDKPTR(4); 

BYTEPTIt = bv TEPTi- OR iiiHll 
END; 
END! 



.V6 



do; 



FdNCl'ICN <PAxtA Gl(OflP> 



TRMPl'Yfi « VA!<?PTK5 

DO VArf$?',rKvPT.. - (f TO TEMP-BYTE} 

PAS.f. - - VA-U'fcAS-E f'VAH'yPARM^PTR); 

CALL < I'T ALP.t P t'tt (4 ) } 






V 



*/ 

*/ 



*/ 

*/ 



•3961: BYTKPTH = VUKCiFMTUV OK 80HJ 

39t"2: FND; 

3963: end; - : — 

3964: /* 1P4 '" PtfOCELURE <PRCC IDFNT LISO #'/ 

396£: ; 

3966: 

39b?: /.* lfb <PtiOC IDENT LIST> : :- <IDENTIFt FR > *■> 

3966: DO; 

3a«&:-- VAR$PTR=-0; 

3970: PARaM^UM = PA.iAMNUM t 1 .; 

3971: V«$EASK-SiTBL; 

3972; CALL ENTER $S Ulf.'tTM (fe» ,S.? , PHOCiENTHY ) J 

3973: P.HD? 

■ S '* IP l?HiPTH <> 1, THEN " <P1< ° C lDFNT UST> ' <IDENTIFIER> *'' 

397G : DO J 

3977: VAR$PTfi*VAR$PTi' + i; 

K 38?>s« PAKAM4UM = PAKAMNUM * IS 

M 39.79: VA«,V&A.SE(VAh' T PTR)^BfBLJ 

3960: CALL EUTEK$SUHlTti(B ,SP,PROC$ ENTRY ) : 

39tl : END? 

'3962: FLSF C'LL F.iHOR( ' VN ' ) ; 
39| ; 3 : 

39*4.: ■■/*. \m <pAHft <iHO(iPi ::- <PAHA I DINT LIST> : <HPF, IDENT> */ 

39f.b; ; ' 
39o6 : 

39&7: f* \.M* <PAHA I DENT LIST> :.* <I DENTI FI ER> */ 

. 3.98B: DO; . ' 

39!. 9: ya^pt^-o; 

3990: PARAMMUM - PAKAMNUM t- i; 

3991: V.H<kASF-SBTBl.; 

:v -> $L '• CALL £N T Fli $ V A |< ', J U ( G , S P , V A H$ EN Ti: Y ) J 

3993: end; 

3994: /=•• lf9 - < P A it A ITENf LIS1'> , <IDENfIFIEIO */ 

A)9H; H VAHvPTR O 10 THEN 

3996;: do; - 



399?: VARiPlii-VARiPTlt + i;- 

3998: Ffi.AMfoUM ■■■■'" P«i'f?MNUM >■ 1> 

3999: VAR^BAS?(VAR$PTR )=SBTBLJ 

■*f0m: CALL FNTFh^V.«hilD'(f»,SP f VAri$ENTHY)f 

1001: EM); 

4002: ELSE CALL FH tCK ( 'V#' )'» 

4003: 

4004: /* 110 JUNCTION KFADINO :: = <FUNCT ID> : <hESULT TYPE> J */ 

4005: CALL GQT$FUNe$TYPEi 

4000: /*■ ill - <FUNCT ID> ( */ 

400?: /.* HI <F0PMAL PARA SECT LIST> ) : */ 

<*00a: /* Ul < RESULT TYPE> J */ 

4009; DO; ,■■■■' 

Ml llfli CALL G0T*PA«A'MS; . 

4011: CALL GO'l'iFUNC^TYPS; 

4; 012":-: CALL ALTEh$PhT*LOC» 

■10-13: 2ND; 



j 4014: 



401b: /'■■■ 112 <V.UNCT 1D> ::- FUNCTION < I D B tJ T I F I E li > "•*/ 

4016: DO; 

4*317: PAHAMNUM = 05 

401b: CALL ENfERiSUSKTN ( 61, SP, FUNC* ENTrf Y ) } 

4019: FNDJ 

4020 : 

4P21:. /* Ha <HESULT TY PK> ;:- <TYPE IDENT> */ 

4022: CALL ALLC^OFFS t/NTYPFLOCT) 5 
4H23: 

4024: />■■■ IH <'.S'i'Ml'.P> ::= <COMPOUNI> Sr«T> */ 

40^b: 



Iviif.h 



t 



40??; /* 115 <STMT> M« <MAL STMT> *'■/ 

40?b: ; 

4 029: /■■' 116 ~ <UNbAL STMT V - 



4030 

4031: /?•■* 11? - <L/i|ii.L Di'F> <STM"f"'> 

4 032: ; 



V 



4033: 

4*! 34: 

4035: 

4036 ; 

403?: 

4038: 

4039: 

4040: 

4041 

4042 

4043: 

4(H4: 

4045: 

4046: 

4047; 

4048: 

4 049. 

40 50: 

4051 

4 052 

4053: 

4054 

4 055: 

:i05.6 : : 

4057 

4058' 

4059: 

4061 
4062: 
4 053: 
4064 
40 65 
4066: 
4 067; 
4 06H 



/* 118 <BAl STMT> ::= <IF CLAUSE> <TRUE PART> ELSE <BAL SIMT> 

CALL GEN$ADDR(LBL,{LAFELSTACK<MP) + 1)).; 
/* U9 ? <SIMP1E STMT> 

? 

/* 120 <UNBAL STMT> ::= <IF CLAUSE> <STMT> 

CALL GEN£ADI)rt(LBL,LAB£LSTACK(MP))5 
/ v 121 ~ <if CLAUSE> <TfiUE °AET> ELSE 
/* 1^1 - - <UNBAL STMT^ 

CALL GFN$ADDh(LBI,,(LAB^LSTACK(MP )+!))', 



/* 



ro; 



1?2 <IF CLAUSE> ::= IF <EXPRESSION> THEN 



•iaefi.stack(mp)-t.ablcount; 

LABLC0Uf«T=LABLC0UNTt-2» 

IF EXPfiESS$STK(;irPl) = BOOLEAN^TYPE THEN 

do; 

CALL GENEkATE(NOTX)i 

CALL GFN$ADDMBLC,l«BELSTACK{MP))i 

END; 

else call ekror( 'ce') 5 
end; 

/* 123 <thue par-:> :: = <£al stmt> 
do; 

CALL GEN^ADD4(RHL,(LfBELf>TACK(SP-l) + l)); 

call gen$addkclbl,labflstack(sp-1)); 

end; 

/* 124 <LABEL DKF> ::- <LABFL> : 

if iookup$p«$id(hp,iabl$entky) then 
do; 

CALL SETADDRPTi<{5)» 

CALL SETADDPPTiite + BYTfPT'O; 
CALL GEN$ADDH(LBL,AJ)DRPTR); 



*/ 
.*/ 

*/ 

V 
*■/ 

*/ 



*/ 



4069 : 

4070: 

40? J 

4072: 

4073 

4074 

4 07r>: 

4 076 : 

■4 077: 

4078 

4 P?9 : 

4060: 

4 0fl 

4 m'2 

4063: 

4084 

4 085; 

40b6: 

408? 

4088: 

4069: 

4090 

4091 

4092: 

40s:v 

4 094 

109* 

4096: 

4097: 

409fi : 

4099: 

4100: 

4101 

4102 

4103: 

4104 



'/* 



/* 
/* 



end; 

else call erhor( 'ul')j 

125 <simple stmt> 

126 
12? 
128 
129 
130 
131 
132 
133 
134 



<ASSISNMENT STMT> 
<PROCEDUHE STMT> 
<WHILE STMT> 
<REPEAT STMT> 
<FOK STMT> 
<CASE SfMT> 
<W.ITH STMT; 
•'GOTO 3TMT'> 
«JOMPOUNP STMT> 



do; 



135 <ASSIGNHFNT STMTv ::= <VAttIABLE> := <F.XPK ESSION> 
CALL ASSIGN$VAKI(MP, FALSE)) 

136 <VARIAJU'> :i* <VAHlABLK I J» t>'T"> 

137 " < V A R I A ^ L t: > ~ 

138 " <V A aiA>, L£> [ <£X?.i'ES LISf> 1 



*/ 

*/ 
*/ 

*./ 
*•/ 

*/ 

*/ ' 

H 
*/ 



TYPF^STACXCIP) - (TYPI$STACK(MP) OR 40H)i 

BASF - basf:<loc(mp) ; 

CALL SET?PAST>PN(7) ; 



re 



4105: 
41P6: 
410?: 

4ira 

410<J: 

41 Id: 

4 x 1 1 : 

411?: 

4113: 

4114: 

4 1 1 6 ; 

4116: 

4117: 

4 lift: 

4119: 

4 1 i>» : 

4 1 ? 1 : 

4122: 

4 1 2i5 : 

4124: 

4125: 

4 1?ri: 

4127: 

4126: 

4.1??,. 

413f?: 

4131 ; 

4132: 

4134: 
4135: 

4 1 3u ■: 
4137: 

4 1 3h : 
4 1 39 : 
41-10: 



/* 



7* 



CALL 'JEN$ADDR(I.DH', /.DDHPTH); 

CALL GENEhATEfSUB)' 

CALL SETADDHPTH(a); 

HAS t ^ APDtipfKj 

CM.L SETAI)DuPTK(b); 

CALL CENEWATFdJYTKPTH): 

t l?y " <¥AHIABLf:> . <"FIFLD IDENT> 

It NOT T.OOKU^ONLHSP) THEN CALL EPKOh('DT'); 

else ro; 

BASF - LOOKUP^ ADLiJu 
CALL SE?iPAST>PN(12); 

PhIiAl!DH(HP) - ADDUPIN t PHTSAPPH (MP) J 
CALL SETiPAST^ PN'JW 
CALL CASKPTHPI'KfBYtvPTH) ; 
TrPRiSTACK(MP) , it p htfSTACK (SP ) 
ErH); 



PTriPTH; 
140 OAKsABLE Il»ENT> ::= <,]DENTlFlfH> 



D(V; 

VApPAf.M ~- FALSE; 

IK NOT LCOKUI^ONLY(SP) T ; !EN 

CALL E'likOH 'D'l '\} : . . 
ELSd CALL SET$VAHiTY?E; /* LOOKUPS ADC:! SET FE^E */ 

end; ; ' 



141 
142 



<IXPHS LI3T> 



<EXPli.ES,SIO..M> 
XEXPRE3 l.Ii'n , <EXPiiJSSION> 



143 <EX?KRS5ION> ::- <5IMPLE FXPhMSlOlO 



144 
144 
141 



<SIMP1.F EXPRESSIONS 
CiELATIUML ()PBstATOH> 
<SIMPLF EXPRESSION^ 



'*/ 



*/: 



-v 



*/ 
*/ 



to 

to 



41 11: 




4142: 




4143: 




4144: 


/* 


4145; 




4146; 


/* 


4147: 




4 148 ? 


/* 


4149. 




4150: 


/'* 


4151: 




4 1 52 : 


/* 


41^J 




415 


/* 


4155- 




4156: 


/* 


4157 : 




415a; 




4159: 


/*. 


4160. 




4161: 


/* 


4162: 




416.5: 




41ttt j 




4165 s 




4166: 




4167; 




4 1 e? ;' 




4169: 




41??-: 




4171: 




4172: 




4175: 




4174: 




4176: 




4 1 76 : 





IF OHKHXPjUTYPt. THIN CALL FIND^t tLOPi 
SLSE CALL E'rt".KCK( fCK ' ),I 



145 DELATION AL OPERATOR 
CALL SET$OP$TYPE(0?H); 

146 
CALL SF'f?OP$.TYPF (V)<JH) I 

147 
CALL SET$0?$nP£(tfAH): 

148 
CALL SETiO?$TY?F(0bH); 

149 
CALL SFT$OP$TYPP(0C1I); 

15ti 
CALL SKT$OP$TYPP(flI)H) » 

151 
CALL SET>OP!?TYPF(0EH); 



< > 
^> - 



IN 



152 <TL'f:M> : : ■-- <FACTO><: 



153 



DO; 



<ff:.'rtM> MULTIPLYING OPFf<ATOtf> <FACTOR> 



I V KFADP.IHMS THEN 
DO? 

AP'fKADDH * PAS.(1NUtttOC(tfP)? 

IF SHiitfiHElTH.-vi THEN 
CALL EhkOM * isl F ' ) • 

&:nd; 

if chku'xph^ti'pe then 
do; 

DO CASE TYPF>STACK(hrPl ) ; 

/-V)*/ If fcjXPHESSii l'K(S?) i 1H THEN CALL GF.NERATE(MULI ) ;• 
FL.SF IF FXPF<F.SS$STK(SP-.) - 5H TH?N CALL GKNFh ATEtMULB )'» 
ELSE IK LXPKESS?STK'..SP) = tfH TlifcN CALL Gf N£H AT E(IS EC) J 
ELSE CALL Ftf '{().<( 'OE' )', 
/'• : 1*/ IF EXPl-'Eo3$ 3TK(bP) = HI Tll'E-N 



•V 

*/ 
*/ 

*/ 

*/ 

*/ 
'*/ 



do; 

CALL GENKIlATBffNVI )! /■- CONVERT 1ST INTlOiR */ 
CALL ■ GFNKJ-. ATEi CN^I )} /* CONi/EKT 2ND iNTE.lKk >*/ 

CALL GENEKATE(DIVfc) J 

EXPRESS £5TK( MP) - UNSIGM$EXPONJ 

en n; 

ZISi IF KXPHfc.SS^STKfSP) - oU THEN CALL GENE -ATE( DI7B ) ,* 
ELSE CALL EullOlH 'CE')"i 
/*2*/ IF KX.Fi ESS'STK(SP) - 1 M'i F.3 R'hi-T Y P F THEN ALL ' CiStlU ATE( PIV I ) ) 
£IS*. CALL ERROR ( 'CE'); 

,/■?:>*■'/ IF EXPuESS$STK<3P)=lNTir,EKVn?E THBM HALL CENERATFfMODX ) I 

ELSE CALL £.iROh( 'CK')J 
>r*4'*/ IF EXPHEiiSSSTKtliP^EOOLEA^TYPF THEN CALL G£NEKATE( AN*)X ) ; 

ELSE CALL EnRO:i( 'CE ' ) i 

end,' /* of case vai-$type*stk */ 
end; 

ELSE CALL trtf?OH.( 'CE')i 

fnd; 

154 <mi)lt1 plying opera.tofo : :- * */ 

CALL $Er$0?4:TY:pr.M^h) 5 

i?-S " / */ 

CALL SET$OP$TlTPf?(0ll') J 

156 " DIV */ 

CALL SF'l"?OPM'n>E(02!{;; 
4202: /''- 157 " MCI) */ 

.4203: CALL S FT$0?' T TYPE ( 03H ) ; 

4204: /*■ 15f- " AND ■*./ 

4 205: CALL SET$OP}TY PF104H) » 

4206: 

42'/)?: /■*■ 1*59 <SIMPLF FA PI fcJ.SS iON> ::- <TFIM'T ' <«/ 

4 20.->: ; 

42P9: /* ie# ~ <SliH> <i EhFs> ?s> 

421 i): DO; 

4 211: I>' Hr.ALPAHflS THEN DO J 

4212: APT'xADDH - PA.HMNUMLfC { SP) ; 





•117.7: 






417b:. 






4179: 






11 t*io : 






41ril: 






. 4182: 






4 1 bd i 






4184: 






41tb: 






41b6: 






4167: 






416b: 






4U<j: 






4 1 90 : 






4191: 






4192: 






419o; 






4104: 






-0 


4195: 




I J 


4 1 96 : 
4197: 


/■ 




419b: 


/ 




4199: 






4r?3?i 


/ 




4 201 ; 





42l3. ; J IF Siii;(h:YTL«T;',V} THEN 

4214; CALL tHROK ( 'HE' ); 

4215: ENEJ 

4216: IF SIONTYPS - KiT, THEN 

421?: DO? 

4218: IF EXPRESS(Si'K{SP). = UNSICN^EXPGN THEN 

4219: CALL GEN EH ATE(NEGE) J 

4220 : ELSE IF EXPhESS$STK(SP) - INTEGER-?H PE THEN 

4221: CALL GENEhATEl'NEGI ); 

4222: ELSE CAM IHHOR('UO'); 

4223-: FNDJ 

4224: SIGN? FLAG * FALSf; 

•122b: CALL COPY ^STACKS ( MP ,SP ) ', 

4226: END J 

4227: /* 161 ~ <5 IMPLE EXP tESS 10.1 > */ 

4226: /* 161 <A DOING OPERATOR <TERM> */ 

4229: DC? 

423?: IF REM)PAF.MS rilEM DC; 

jo 4231: APTRADDR = PARMNUMLOC ( MP ) ; 

•* 4,2,^2 i IF SHHMTKP-l'H,?) THfe'.N 

4233: CALL EiiROf ( %E' ) J 

• 4234: END; 

4 235: IF CFfK iEX PR tTY P E THEN 

4 236: DO; 

42*7: IF TYPEiii,.TACK(MPPl)^hH THEN /* AkITH ADD */■ 

?&*H* DO CASE EXPRESSvSl'K(SP); 

42-'y.* CALL GENPKATE(UNION); /* CASE - ORD TYPF <•/ 

4240: CALL GENERATE^ ADDI ) .'} /* CASE 1 - INTEGER ■'-/ 

**»1 ! CALL KrtKOK( 'CK') ? /* CASE 2 - CHAR *./ 

4242; CA!,L '.EN-: !.*TF( ADDB) J /* CftSE A - HEAL */ 

42i:V: CALL ERROR ( 'CE:').; /* CASE 4 - STRING *'/ 

4^44: CALL fa ROr.(. 'CE' ) .? /* CASE 5 - BOOLEAN */ 

4245: END; '/* CA'U */ 

4246: H'»t IP TfPii.'j.STACMHPPl )- fiH -TriKN /* ARITH SUlTkC */ 

424?: DO CASE EX P:< i SS vSTK < SP ) ? 

424d: CALL It NH ■ r;K I o?l)l E ) 5 /» CAS? - OuO TYPE */ 



I .) 



t?42: CALL C, FN F!-. ATE ( SUB I ); 

4250: fA-LL Fn -tOrt ( 'C «■:' ) J ~' — — ~ 

4251: CALL C,tr<M<ATF(SIJBB); 

42 -2: CALL EKROj:{ 'CL'); 

42U6: CALL f'Su>Ort'( 'CF.')) 

4254: FNDJ 

■ i2bb - SLSF IF TYPF>STACK(MPP1)-?H THBN /* SOOLLAN OR */ 

4256: DO? " 

42£7: IF EXP1-:FSS$STK(1>P) - B'OQL'KW$T-YWS TWsi 

4Stb.J-'. CALL UtNEHATK(bOR); 

4 ^2: ELSE-CALL E'fcifGJi'C 'CB ' ) S 

42d0: EMU J 

4261: END; 

4262: ELSE CALL Frt!,OR( 'CK')i 

4 263: i'Hbi 

•1264: 

426b: /* 162 <ADDING OPFI(ATOH> ::- + ; w 

J 4266: CALL S.FTf-QPf Hf-K'tifbH) J 

| : ; 426?: /* \e;6 

;4266: CALL S £'T$OP$TTf P EU56H ) J 

4269: ,"* 164 

4 270; CALL 3 FT>GP$.TY P F (#7 if ) J 
4 271: 

4272: /*• lfcb OACfO'iy ::- <V An I A !jIK> ;;./ 

4273: IF (FOhf-'i? FIELD OP) - a.MJ) (;■' (J-Ol M$FI fcLD(MP) = 0D11 ) THEN 

4274: TALL CALL$AU'HOClhAI.SF); 

.4275: J LSI' CALL 1.0 AD<V «HI ( S P ) j 

4276: /* 166 ■ . " <V A^I.Ai LK :■ { <ACTIJAL PAhA LISTV) */ 

4277: CALL CA LLiA/y PBGC (i',;UE ) ; ' 

42VR.: /* lo7 ,7 ( <i y PV r sS Km ) :::/ 

4?79: CALL COPY ^STACKS f«f J , MPP1); 

42e0: /* l£d ~ a',F,T> */ 

4 261: ; ' 

4262: /* 16J '" [jfs'f CKACTO]'. > */ 

4 2co: do; 

4264: IF FXPhl^SiS:K(SP) - BOOLFANyf i PF. l'ifr.JJ 



C'rt . . */ 



42ii5: CALL GEN h, ATE( NOTX ) J 

4 2d6r FLSF CALL JHItOH'i 'GE ' } f 

4287: C»LL COPY *STAC KS ( MP , 5? ) i 

428f: END; 

4289: /••:• 170 ~ <NUMPEtO */ 

429P: IF TYPKNUM-INTKGKK$TYPI* THEN 

4 291 : DO; 

4292: EXPhESS$STK(SP) -.1 NTEGER^TYPK? 

4293: ■ALLC*OT.Y = CONVfcJ , .TI(SP,POS); 

4291: CALL GEN$ADDK(LDII,ALLC$QTY); 

4295: END? 

4266: FLSF DOJ 

4297: rXPHESS-SSTK(Sl') ^JNSIGNH'XPON; 

4298: CALL CONVR'i HCP ( S P ,POS ) ? 

4299: C*LL GENEK ATE( LD1 B) ! 

1300: DO PTi{:PTH-0 TO ICDSIZE-i; 

k 4^01: CALL GPNEKAT E( BCLNUM( P i'KPTH ) )} 

£•' 4302: fND; 

4303: END? 

430*: •/:■■'■ 171 "NIL •:■•/ 

4 305: ; 

1306: /* 172 " <.STj.i'!iG N */ 

4307: DO! 

4308: EXPnFSS$STK(SP) = STH I KGi'TYP-E? 

4.309: CM.L GEN Hi ATE ( LOG I ) i 

4310: PC EOHEVEn \ 

43,11: DO PTi.PTi, * 1 TO ACCU-MJ 

4312: CALL G EN F.» ATE ( ACCUN( PTPPTI. ) ) 5 

4313: END; 

4314: IF COhIT THEN /* STRING > 32 CilAhS ■• / 

4315: CALL SCANNEifJ 

4316: ELSE DO; 

4317: CALL G EN EH ATE ( NOP ) J 

43.18: i.ftuhn; 

431.9: END; 

4320: E^r>! 



4321: 




4 322 : 




4323: 


/* 


4324: 




4325: 


/* 


4 326: 


/* 


4327: 




4323: 




4329: 


/* 


433*4; 




4331: 




4332: 


/* 


4333: 




4334: 


/*' 


•4335: 




4 336: 




4337: 


/■' 


4.33b: 




4339: 


/.;< 


4341*: 




434 1 : 




434 2: 


/■* 


4 343: 




41*44: 


/* 


4343; 




43-36: 




434?: 




434P: 




4349: 




436M : 




4 351: 




4 3b?: 




4353: 




4354: 




4355: 




4356: 





end; 

173 <f,ctual paiya list> : := <actual p*pa> 

pahmnum(sp) * h 

1?4 ~ <ACTUAL PAhA L1ST> , 

1?4 <ACTUAL ?ALA> 

PAaMNJM(MP) - PAKMNUM(MP). *1{ 

175 <SFT> ::= f O'LEMENT T. I S T > 1 

call co?y$stacks(mp, mpp1 ) 5 

176 <"elfkent i.lst> :: = 
call copy$stacks(sp f sp-3); 

17? " <xk:.ement list> 

J 

1?6 . ^XELEMriNT LISf> : := <EL2ME:m 

179 \ <XELi'MENT LISTX , <ELEMENT> 

IP EXPRESSES i'.K(fP) <> FXPKESS*STK(SP) THEN CALL v.« HOR .(■* ET ' ) • 



ie« <"ELEMENT> 



v'OPRESSIOiO 



161 " <EXNESS!0*O .. <EXPHES3I0N> 

IF KXFlt fSSt-STK (MP) <> i X PH KSS^STK ( 5P ) THEN CALL FliHOli (' FT ' ) J 

162 <go.to stmt' : i~- soto <label> 
ip lookup$pn$id(sp,lablh'htuy) then 
-do; 

CALL SETADDhPTJ.(5); 

CALL S ETA l) PH PT K ( 6 + B Y T .«: PT ft ) ; 

CALL 0EfHADI)p{ PKL.ADfJhPTli); 

end; 
else no; 

CALL Fh-i-01 .{'ill.'); 

CALL CEMEHATE(NvJP); CALL 1ENEHATE( NOP ) ; 



*/ 



*/ 

V 

*/ 

••7 
V 

'■'/ 
>:- / 






4357 
4358 
4 359 
4560 
4361 
. 4362 
4 363 
4364 
4365 
4366 
4367 
4368 
4369 
4 37K 
4371 
4372 
4373 
43?4 
4375 
4376 
4377 
4378 
4 379 
.4 '380 
Wi 
4 332 
4383 
4384 
4 385 
43b6 
4 3e7 
4366 
4389 
439rt 
4391 
4392 



/* 

/* 
/* 

/* 

ft 



ft 



end; 

103 
i 

184 
i 

185 



<C0MPOUND ST-MT> 
^'S'TKT LISTS'* : :'■* 



;>■- DEGIM <STrT LISTS "» FN 

<STMT> 

<STMT LISTS ^ J <STMT> 



186 <rPHOCEpi)H" ST'?1T> ::- <Pi(OCKDUHE IPENT> 
CALL CALL$A.$PIfGC(.FALSF) ; 

187 

187 
IF F0R.M$FI-8LD(MP) - I- 01 Ll"? I N$PROC THEN 

CALL CALL.iA$'Pl>OC( FALSE)? 
ELSE CALL C ALL$ A vPl.Of { THUK ) J 



<VHOCRDUHE IDENT> ( 
ACTUAL PAHA 1,1 ST> ) 



188 



v'PitOCEDUHF IDRNT> 



<I OtNTI VI fcrt> 



do; 



*/ 
*/ 



IF NOT LOOKU?$ONLY(SP) THEN 

CALL f.HROH( 'UP'); 
ELSF do; 

FASFLOC'CSH * I.OOKUPJAUDK; 

CALL SK'i'Al)IJI<»TM<US 

FOi:>$FIFLDC5P) * BYTFPTk; 

IF FOKM$KIELD(SP) - BUI LT$I N$Pt<OC THEN /* LU1 LT$IN$PHOGEDUI(E 

ro; 
call srr$PAS'UPN(7); 
if hteptr ^ 28 then 
do; 

P*hMN'UK(S'P) = 2? 

PAHMNUMLOC(SP) = A.VTitADDH •» 1 » 
END? 
ELSE IV eri'FPTK > 21 THEN 

DO CASE < fcYTEPTR - 22); 



4 393: 
4 2-94 : 
4395: 
4396: 
4 39V: 
4398: 
1399: 
4 4 Mi 
4401 : 
4402: 
4403: 
V124-: 
4405: 
A<L?6: 
140?; 
440b: 
4409: 
4410: 
4411: 
4412: 
4413: 
4414: 
4415: 
44-16: 
441?: 
4416: 
4419: 
4420: 
44S-1 : 
4122: 
4 4 23: 
4 4'24.'j 
442b: 
4426: 
44 2V: 
44 2b i 



NfcV$STW - T.Htl'K'} 
DISPOSt:fSJHf -- i'RUE; 
REA>>STMT - TRUE; 
HKAE^TMf ■- TRUE? 

wiiiTF$STf-:T --i ti.uk; 

WR'ITE$STMT - TRUE; 
Mh", /* OF (ASF, (BrfriPTH - 22) */ 

fnd; 

ELSE DO; /* NOT BUILT IN */ 

CALL S-tT:?P*STit>N(7) 5 

PAftFNUM(SP) -- byteptk; 

CALL 5tT$PAST$I'N(F); 

PARMNUMLOCISP) - ALHRPTR.; 

APThADDi-. - APT! *DD f ; + 61 

LA EELS TACK (SP) - ADDRPTR; 

HKALPAItMS - TRUS?" 

PAHK.NUML0C(Sf"-2) - PAIWNUM.OC(SP) I 
FND; 

end; 
end; 

/* 189 FACTUAL PARA> : :- < EX Ph EiiS I ON > 

IF RE-AD'S MT THKN CALL HEAP$VAhi 

ELSE IF v/hlTKiSTMT •tl'.i'i CALL VI, IT F,$V kV (0 ) ; 

k ls k 1 k no '1 { r k a i> p a r «i.s ) t h f n 
. do; 

READPARMS = tiue; 

call glnrrattcpahmx); /■■■ paramftelr is an expression value ■■/ 

jnd; 



/is. 



190 



IE MOT WiilTS^ST^'T TH^'M CALL fcttft-6-R t ■■■«'>! ' '}"; 

ELSE no; 



aixpr-EssioN) •. <expkession> 



*/ 



y* 



IE EXPRESS *STK(.SP) O 1NTWEK$TYPE THEN CALL FRROI, ( 'WP ') J 
CALL WRiTK^AHU ); ' 

EXPRESSION;- : <FXPRFSS ION> : 



C 

end; 

191 



442J: 
44 3P 

•1431 

4432; 

4433; 

4-1.14 

4435; 

4436; 

442?: 

4438; 

4439; 

4440; 

4441 

4442 

4443; 

4444 

4445. 

4446; 

4 447 

4448 

4449; 

4450: 

4451 

4452; 

4453: 

4454 : 

4455; 

44 56 

■445Y 

4458 

44 59: 

44 tie- 

4461 
4 4 02 
4463 
4464 



/* 









191 < expression: 

IF NOT WRITEiSTKT THEN CALL EiikO"i< ( 'P-E '■') ,'. 
ELSE do; 

IF EXPkKSS;?SrK(MF) <■•> UNS IGN-? EX PON THEN CALL EriROH( ,'HT ' ) } 

IF (EXESFSS$STK(SP) <> I NTEGER!- TYPE) AND 

(EXPRESS$STK (SP--2) <> 1 NTEG IH$T Y PE) THEN CALL EHROR('WP'); 

CALL *HITE$VAh(2); 

end; 



.;• / 



192 ^CASF STMT> 
192 



<CASF EXPRESS: <CASE LIST ELEMT LIST> 

2ND 



do; 



1.ABLC0UNT = LAHLCOUNT * 1} 
CALL r,EM$ADDR(LBL,I,AHELSTACK (MP) )i 
CASE$COUNT - CASE5C0UNT - If 
ENP» 

193 <case fxphfss> ::= case <exp-fssi0n> of 
do; 
case$stmt=Thue; 

IF (EX?RfcS'S$STK-(MPPl) .-. UNS ICN$EXP'ON) THEN CALL EfcBOB( 'HT ' ) J 
LABEL-STACK (MP) * LA BLCOUNT 5 
LABLCOUNT * LABLCOUNT t- 1J 
CASE$STK(CASfc$COUN'T := C/.St$GOUNT + 3) » 0; 

end; 

1:94 <case list hlktit list^> :.:= <ca3f list £lemfnt> 

IF CASfSSTMT THEN 
DO ; 

CALL CEN$ADRR(Bi.L,LAf:F.LS?ACK(MP~l )); 

CALL GRN*yU<Oi((LIiL,(I.AB'r:i.STACK (MP)+1) )i 

end; 



. 1/5 
195 
IF C*SE$'STI*T T.fl'FN 

do; 



<CASE LIST ELEKT LIST> ; 
<CASV; LIST ELEMENT^ 



*/ 



*/ 



*/ 






4 466; 

4467: 

4 4 68 

4469: 

4470' 

4471 

4472 

4473: 

44 7' 

44 7e 

4476: 

4 477 

4478: 

447 

4480 

4481 

44b2: 

44 c-*>: 

4484 

448b- 

4486: 

448? 

4488 

4489 

4490; 

1491 

44 92 

4493; 

1494 

449f>: 

4 496: 

4 4 >)? : 

4.49b: 

44 9 

4L00 



/■■:■ 

/* 



/* 



/* 



/* 



/* 



GALL GEK$ADDH(rhL,LAbi.LSTAC-K(fi?-l) ),' 
(MIL flEM$ADD-rf(LBL,tl*RKL$TACK(SP)«l)) . 

m d ; 



196 <TCAS.K LJii! KLKNENO :: = 
■CAS5$STMT - fALSF; 
197 



<CAS? PhEFIX> <STMT> 



198 <CASE Pf<>:i'TX : > ::- <CAS£ LAEKl LIST) : 



do; 



CALL GKHiADDH(.fht,(LAPH3TACK(MP) n) )i 

call gem 4 yaddhubl,labelstack{mp))i 

md; 



199 
199 



20C 



201 

202 
202 



OsITH 3TMT> : :> <WITK> <ftEC VARIABLE LIST) <BO> 
<BA.I. STMT> 



<W1 l'K> :;:..'-- V. ITH 
<H£G- VAnI AHLK LI5T> 



:-- <VAHIABLE> 

<kKC VAHIOLE LIST> , 
< V A HI A B L K > 



2P3 



< 10 > 



;- DO 



no; 



LA^KLSTACK (SP) - IJBLCOUiJT J 
CALL GPN$AI>DfU RLC.LABKLSTACIKSP)) ' 
LAELCOUNT -\ LAbl.COUNT < I) 
ENl>? 






*/ 



-v 



*/ 
V 

•v 



*/■ 



;* 



2W4 <WHIL* STMT- 



<WHIi.K- <f.XPI.FSSI'ON> <D0> <BAL STKT> 



*/ 



■1501 : 
4502: 
4503: 
4504: 
450b: 
4 506: 
* 50? : 

4508: 
4509: 
4510: 
4511: 
451?: 
4513: 
4514: 
4 515: 
■4Mfi: 
4517: 
4518: 
4519: 
451-0: 
4521: 
4522 : 
4523: 
45 ■•4 : 
4525: 
4526: 
4 52V: 
■i'bZSr: 
4529: 
4530: 
4531 : 
4532: 
4533: 
it '64 : 
4 5 3 o ; 
4 5.! C : 



DC; 

CALL GFN^ADDR-J BK I., ifAHKLi'TACK ( MP ) ) } 
CALL ■0EN^ADDR(LBL,LAEELSTACK(SP-1)); 

En d ; 



/* 



2tb 



do; 



<WH1LE> 



Vii I IK 



LA*ELSTACK(SP) = LABLCOUNT} 

CALL GEN!?ADDrt<LBL,LABF.LSTACK(i>P) )? 

laelcount * laplcount + l; 
end; 



y* 



do; 



206 <FOK STMT> : :- FOH <CONThOI. V*f(lABLF> := <.?OH LIST> 
206 <DO> <BkL i>TMT> 



CALL GEN$ADDK(FhL,(LARFLSTACK(5P-2)+l)); 
CALL GEM$APDR(L3L,LAB-BLSTACK(SP-l))i 

end; 



/* 



/* 



do; 



207 



<FOH LIST) 



INITIAL VALUF^ ^TO> <FINAi VALUE> 



IF. EXPKFSS$STK(KP) O EX Ph FSS^STK ( SP) THEN CALL ??.KOR( 'ET' ) S 
CALL GRNEffATK('!LQl ); 

<IMITIAL VALUE-: <D0WMTO> <FINAL VALUE> 

IF PXPHfcS3$SfK<MP) O U P^?SS^STK( SP ) THFN CALL ^RGR('ET'); 
CALL GlNBHATHUQ-i).; . 



C 

end; 

206 
DC ; 



/* 



c 
end;. 

209 fCONT'kOl VAi;I ABLE> : : 
DO ; 
v alp* km « falsf'; 

IF NOT I.00KUP$ONLY(3F) THEN 

CALL KRHOni TV); 
FLSF DO? ' 



<.i-DFNTIFIF.ii> 



v/ 






*/ 



*/ 



*/ 



( 

i ■ 



4537 


» 


4 538 




4539 




•1540 




4541 




4542 




4543 


/ 


4544 




4545 




4546 




4547 




4548 




4549 




4 550 




4551 




4552 




4553, 


/ 


4 554 




4555 




4556 


/ 


4557 


/ 


455S- 




4559 




4560 




4561 




4562 




4563 




4564- 




4 565 




4 566: 




4567 


/ 


4560 ' 




4569. 




4570' 




4571 




4572: 





/•PThADDf * LOOKUP? ".DDK + 4J 

IF BYTKPTR = 1BH THfc'N CALL FhROR('CV'); 

FLSE CALL SET* -tf AR±TYPE 1 

fnd; 



210 <INITIAL VALUE> 



<l , XPriESSION> 



DO: 



CALL AS.SIG'N$VARI(SP-2, TRUE)} 
LAEELSTACiC(SP) ~: LA.HLCOUNT; 
LABLCOUJJT = LAPLCGUNT + 2' 
CALL GEN 1 ? A DDK (BRL, LABELS TACK (SP))J 
CALL GEN$ADDR(LBL,(LA£ELf>TACK(SP)-H)); 
CALL L0AD}i/Akl (SP-2)j 

end; 

211 <F1NAL VALl!?> :: = <EXPRaSSION; 



212 <REPEAT STHT> 
212 



<REPEAT> <5TMT LISTS> UNTIL 
<EXPRESSIOn> 



V 






do; 



if fxprfss$stk (sp) = eoclean$?ype thfn 
do; 
call genfhate(notx)? 

CALL «EN$ADri(ULC,LAiiKLSTAn?:(MP))! 

l'lsc call h!h0p( 'ce'); 
end; 



213 



CnF.PEAT^ 



!■. EPK*T 



do; 



C AT.L G mU DPR ( LBL t LA BLC0UNT ) \ 

labelstack(sp)-lablcount; 
lablcount - latlcoun? + 1j 
fnd; 



I-J 



457:*: 

4574: /* 2,1.4 '"K>-> :,U TO — • - ~-*-f~~. 

4575: DO? ' 

4576: C«LL CtNFKATFK INC); 

4577: CALL G EN J A DDR (LBL, LABELS 1'ACK ( SP-1 )) ■ 

4b76: ENDj 

4579: 

45£0: /> ?\b < DOWN TO > ::- ■ OOWN'J'O ' *"/ 

45al: DO} ' 

4582: CALL 1 INKh ATE{ DiC ) ,' 

4583: CALL GEN$AD0H( LBL , L AB l ^STACK ( SP-1 )) ; 

4564: END; 

45b5: 

4f t6 : 

4587: VND; /* 0F CA5E STATEMENT */ 

458e: 

45£9: END SYNTHFSIZE; 

4590: 

4591: 

4592: /********-<•*** ***.^^ 

4593: / * * * * * * '•- * * * * * * * * ** =:• * : := *«• * * * * * * * * * * * * >> * * * »•>• * * t $ $ * * * « a * * $ * ,^ : ;c ****** * * * # * * #* * / 

4t>94: /*';* FahOK RECOVERY ROUTINES ***/ \, 

4595: / ** * * * * * * * ■■' ■<• # >;- * * -; : t * ••: •;■ * <:• -: : * * s >;■ •;< * * * * * * * *• * >; >: * .;• * # * * * $-# * * # >;. >;« $ $ $ % ,;, # $# ,;, ,•.- #%$% #*,#., j 

4 59(' : /'•■''•••'v ; .'v •.'.:>. >.: ;^ ;,<;.. ;,.,;. .,;*.;■ v -'.• »:.»:<! >;• ij.-.; v »; * # >;: ;|:>^ jj;j; .•; ; ;. j; .;o;:^j;. j;:.;. iN>;. >!< '!<>;'• * <« »;> <« i|c >;<>;; >:ty.i>;<it<i;« # »••>;< >;t >;<>;, fti's;'* / 

4597 : . • • / 

459b: 

4599: NOCONFLICT: PKOC (CSTAT'Y) fcYTE! 

4 MP: DCL CSTATK STA.TFSIZE, (l,.T,K) 1NDEXSI7R5 

4*,W1 : J; INDEXI(CSTATE); 

4602: K= J i INPFX2( CSTATE) - 1} 

4603;; DO I - J TO k; 

46^4: IF HEAD) II) •-• TOKEN THEN RETUkN TPUE; 

4605: END? 

4606; LETUPS FALSE? 

1607: END NOCONFLICT; 

4 60S: 



4 609 


461^ 


4611 


4612 


4C13 


4 61 v 


•1615 


4616 


46 1? 


4618 


4619 


1620 


4621 


4622 


-A623 


4624 


4525 


4626 


462? 


4629. 


4 629 


■lew 


ifs'Sl 


4632 


4633 


4634 


4 636 


4635 


4637 


4 6? 8 


46 3D 


4640 


4 641 


4642 


4643 



4644 



. i-.'.COVFH: PLfiC STATUS I Z fc:'» 

DCL TSP PYTE, i.STATE SYATtSIZEi 
DO E(-HWEi<s 
TSP « sp; 
D.C Will LF TSP r> 2E'.5J 

IF Nt'OGia'LICT(hSTATK:^STATKSTACK (TSP)) THEN 
. DO? /* 3T«TE *MLL HEAD TOKEN *'/ 

IF SP <> TSP THEN SP = TSP - 1} 
KSTUHN hSTA'i'KJ 
EN D ; 
TSP - TSP - i; 
EN L ; 

call scanmb'i.; 
• end; 
end recover; 

/ if A if if if if if if if ■'f if if if if A- ■':■ if if >t if ft if AX if v if if if if if if if ■'.' if •'.- if. A- -f '•' A- '* $ A' if A* A' A' * A' ♦ "M 5 <« * # 'v : 'f ♦ ><<>!<<<#>!= if >? -!' £ si' if / 
/ if if if if i f if if if \ -i< if if if if >;; i? A' if if if v £ if # >!• * if ;!"!' $ £ >!• if v A- '•• if if if if if if A' if if i< if if if A 1 A' if if if if if V A' if if if if if if ... >|: A- if %■ I 

/*** L ft L I- ■ PAliSER ROUTINES #**/ 

/ * •!• * v * # $ if if if 'if if if A( if if A- if if ■'.- if ifif^.if if if i. if A- if if if if if if if if if if if if >Jt if $ if <; >;< ij< if if if >[< if if if jf <t # if if jjc »[; if <: * <: $: lj; >;t / 
/if if if if A* if if if if if if A- i,- if A- A if A'- '■' •'.•'■'f'A^fifififif ifi-ififi : ififA-ifif if A-A-if if if if if if if if if A* if if if if if if if if if if if if if ifif if if if if if / 



do; 

DCL (I,J,a) INDKXSIZE, INDEX MTE5 



INITIALIZE: PKOCJ 

CALL INlTfrSCANNKh; 

CALL INI T$. »'MTP(I : 

CALL INITI ALlZE'SYNTHESIZE? 

CALL TITLE; 
END INITIALIZE; 



/-BIOCK FOR DECLARATIONS*/ 



to 

<7\ 



4645 

4646 
464? 
464B 
4649 
4650 
4 651 
4652 
4653 
4654 
4655 
4656 
4 65? 
465b 
4659 
'466.0 
4661 
4662 
4663 
4664 
4665 
4666 
466? 
4666 
4669 
4 670 
4671 
4072 
4673 
4674 
4675 
4676 
4677 
4 678 
4679 
46S0 



GF.TIN1: Pi.OC I MDFXSI2FI 

RETURN 1NDEXK STATE)! 
END' GETlNi; 



GETIN2: PROC INDKXS1ZE! 

RETURN INDEX>i{STATE) J 
FND GETIN2! 



INCSP: PROC; 

IF fSP :^ SP + 1) - LE>JGTH(STATK3TACK) THEN 
CALL ER1«)K( 'SO'); 
END INCSP? 



LGOKAHEAD: PROC; 

IF NOLCOK THEN 

do; 

call scanner • 
NOLOOK = false; 
IF LISTTOKEN THEN 
CALL PhlNT$TOKEN; 

end; 

END LOOKAHEAD; 



/* SET UtiC, AND INGfhNT VAKlNDEX */ 



SFT$rfAj:C^I : PhOC(I); 
I'CL I lilfTF.; 
VAhC(tfAkINDEX)=l; 

IE (VARINDEX: = VmNDEX + l) > LENGTH(VAflC) THEN 
CALL KhRORl 'VO')J 
END .SETfV^itbil; 



-J 



46el : 
4682: 
4683: 
4684: 
4 685: 
4686: 
468? 5 
4688: 
46£9: 
4690 : 
4691: 
16>j2: 
4693: 
4694 : 
4695: 
4696; 
4697: 
4693: 
4699: 
4700: 
4701 : 
4702: 
4703: 
4704: 
4705: 
■'4.Vf'6; 
4707: 
4708: 
4 7(29: 
4710: 
4711: 
4712: 
4713; 
4714: 
471b: 
4716: 



/■'■■ INITIALIZE FOK INPUT - OUTPUT OPERATIONS */ 
CALl ^QVF( : • 'B..WFCB.9); /* PUT FILENAME IN WRITE FCB */ 
CALL SETUP>I ?fIL; /* CREATES OUTPUT FILE FOR GENLHATED CODE */' 
CALL INITIALISE!' 



./* INITIAL ZE VARIABLES */ 



/* HEAP STATE */ 



DO FOl'FVFl:; 

DO WHILE T-HUEJ- 

COMFILING,NOLOOK=-TRUr; 

STATEfSTARTS; 

SP---255J 

V Ah INDEX ,V Ah - a.; 

DO WHILF COMPILING; 

IF STATE<-MAXHNO THEN 
DO; 

call incsp; 
statestack(sp)=state; 

1--GETJH1; 

call lookahead; 
.W+g FTIN2-1 ; 
DO 1-1 TO j; 

IF H ?: A D 1 •: I )-TOKE.<4 THEN /* SAVE TOKEN <-'/ 

DO J /*.' COPlf 4CCUM TO PPOPEft POSITION */ 

VAK(SP)-VAHINDEX; 
DO INDEX = TO ACCUrtJ 

CALL SET$VARC$I(ACCUMl INDEX))? 

end; 

JiASH(SP) = hashcode; 

7* SAVE hFLATIVE TABLE LOCATION */ 
STATER EAD2{ I )} 
NOLO Or= TRUE} 

end; 
else ie i~j then 
do; 

CALL EhHOR( 'MP'); 



if* 
00 



4717: 

4716: 
4719: 
4720: 
4721: 
4722: 
4723: 
4724: 
4725: 
4726; 
4727: 
4728: 
4729: 
4730: 
•4?3i; 
4732? 
4733: 
4734: 
4735: 
4736: 
4737: 
4?3e: 
4739: 
4740: 
4741: 
4742: 
47 43: 
4744: 
4745: 
4746: 
4747: 

4743: 
4743: 
4750: 
4751: 
4752: 



/* APPLY PRODUCTION STATE */ 



if (state :^ uecover)=0 then 
compiling •-- false? 
v.nd; 
end; 
. end; 
else if statf>maxpno then 
do; 

MP=SP-0iTIN2; 

mppi=mp+i; 

phoe^ctio^ = state-maxpno; 

call' synthesize 5 

sp^mp; 

I-GETINi; 

vakindfx=var(sp); 
j=statestack(sp); 

po khile (k:=apply1(i)) ■<> amd j <> ki 
i= I +i ; 

fnd; 

ip (statk:= apply2{ i ) )-0 then compiling = false} 
end; 
else ip statko maxlno then /* lookahl'ad state */ 
do; 

I-GETINlr 

CALL look ahead; 

DO WHILE (K:=L00K1(I) ) <> AND TOKEN <> KJ 

1=1 + 1 ; 

ENL? 
Sl'ATi-=L00K2(I )', 

f^d; 



end; 



else lo; 

c*ll incsp; 

STATFSTACKtSp; 

state-getin 1 , ; 
end; 



/* PUSH STATE *,/ 
GETIN2; 

/* OF WHILE COMPILING */ 



to 



4763: 
4?54; 
4755: 
4756: 
4757: 
4758: 



F N rj ; 



fnd; 

FNDJ 

end; 

EOF 



/*OF 



/*0F WHILE 

DO FOKEVFI,*/- 



TRUE 



*'/ 



/* OF FLOCK FOR PA USER */ 
/*OF BLOCK FCR DECLARATIONS*/ 



o 



2, 
3: 

4; 
5: 
6; 
?; 
6: 
9: 
10: 
11 
12 
13: 
14 
15: 
16: 
1?: 
18: 
19i 
20: 
21 
22 
23: 
24 
2b: 
26: 
??: 
2.t. ; 
29; 
30; 
31 
32 : 
33; 
34 
35: 
36: 



/* 

* * 

. * ''.'■:■' -* 

* DECODE * 

*/ 



/* THIS PROGRAM TAKES THE CODE OUTPUT FROM THE PASCAL COMPILE* 
AND CONVERTS IT. INTO A READABLE OUIPUT TO FACILITATE DEBUGGING */ 



1 (20H : 

DECLARE 

LIT 

BOOT 

BEOS 

FCB 

FCE$BYT£ 

r 

TKIJE 

FALSE 
ADD!) 
CHAR 
BUFFiEND 

BCDNUM(e-) 
FILE^TYPE 



LITERALLY 

LIT 

LIT 

ADDRESS 

BASED 

BYTE, 

LIT 

LIT 

ADDRESS 

BASED 

LIT 

BYTE, 



'LITERALLY', 

'0'. 

'5H\ 

INITIAL (5CH), 

FCB (1) BYTE, 

1 t 

INITIAL (100H), 
ADDR BYTE, 
'0FFH', 

DATA* 'P', 'I', 'N')J 



38: 

39: 

40; 

41 

42: 

43: 

44; 

45: 

46 1 

4? 

48: 

49: 

50: 

51 

52: 

53: 

54 

55; 

56 

5? 

53: 

59; 

60. 

61: 

62' 

63: 

64: 

65: 

66; 

67 

68 

6G: 

70 

71 



MOMls PROCEDURE (F,A)} 

DECLARE F BUTE, A ADDRESS; 

CO TO rdos; 
END HON I J 



M0N2: PROCEDURE (F,A) BYTE? 

DECLARE F BYTE, A ADDRESS; 

GO TO BDOS; 

RETURN 0J 
END M0N2J 



PRINT$CHAR; PROCEDURE (CHAR). 
DECLARE CHAR BYTF; 
CALL MON'i(2,CHAR)J 

END print$char; 



CRLF: PROCEDURE; 

CALL PRINTiCHAR(13); 

CALL PHNTiCHAH(lfl); 
END CRLF; 



PROCEDURE(ADDl); 
DECLARE AI>£1 ADDRESS, C BASED ADD1 (1) BYTE! 
CALL CRLF; 
DO 1=0 TO 4J 

CALL 'PMNT$CHAR(C(I ))» 
END; 
CALL P*INT$CHARI ' '); 






73: 
74; 
75; 
76; 
77 
78: 
79: 
865 
61 
82. 
63: 
84 
65: 
66: 
87: 
98. 
89: 
90: 
91 
92: 
93: 
94 
95 
96: 
97 
98: 
99; 
1-0.0: 
101 
102: 
1P3: 
104: 
105 
106 
107 
I0ti: 



END ?{ 



get^chaiu procedure byte? 

iv (ad1)r:=addp. + 1) > euff$end then 
do; 

if mon2(20.fcb) <> then 

DOJ 

CALL P( .('END ')); 
END; 
ADDR?80H» • 

end; 

return char; 
END getschar; 



WRITE^STPING: PROCEDURE; 
DECLARE J BKTE5 
DO WHILF 1? 

J » GETiCHAR; 

IF J <> 00H THFN CALL PR INT$CHAK(J ) 5 

ELSE hetup.n; 
end; 

END .WRITE$STRlNGi 



D^CHAR: PROCEDUhE(OUTPUTiBYTE) J 

DECLARE OUTPUT$BYTE BYTE; 

IF OUTPUT^BYTE < 10 THEN CALL PRINT^CHAR (OUTFUT$EYTE + 30H ) ', 

ELSE CALL PR IMT$CH AR( OUTPUT$BYTE + 37H); 
END D$CHARJ 






109; 

11?: 

Ill 

1 12 : 

113; 

114: 

115: 

116: 

117; 

118: 

119; 

120: 

121 

122 

123; 

124; 

125; 

126 : 

127 

1 28 : 

129: 

130: 

131 

132: 

133; 

134 

13 

136: 

137 ; 

13Q: 

139; 

140: 

14. 

142: 

143 : 

144 



PROCEDURE (COUNT); 
DECLARE (COUNT, J 
DO J=l TO COUNT; 

CALL 

CALL 

CALL 



ADDRESS: 



EMD 



end; 



D$CHAR(SHfl(GET$CHAfi,4))i 
D$ CHAR (CHAR AND 0FH ) i 
?'FINT$CHAR(' '); 



PRINT$BCD: PROCEDURE (COUNT)} 

DECLARE (COUNT, J, K, Kl, K2) BYTE! 

P^FXPON: PHOCEDURE(VAL'J); 

DECLARE (VALU, X, COUNTl ) BYTE; 
DECLARE BECK3) 'BYTE INITIAL (100,10,1); 
DECLARE FLAG BYTE? 
FLAG = FALSE; 



x; 
x; 



i'.n 



DO X = TO 2] 
COUNTl = 30HJ 
DO WHILE VALU >; 
VALU - VALU - 
FLAG = TRUE? 
COUNTl - COUNTl + l; 

end; 

IF FLAG OK (X >= 1) THEN 

CALL PRINT$CHAR(COUNTl); 
ELSE CALL PhlNT$CHAR(' ')j 

end; 

return;" 
} p^expok; 



145: 

146: 

147: 

148 

149; 

150; 

151 

152 

152 

154: 

155: 

156: 

157: 

158: 

159: 

160; 

161 

162: 

163: 

164 

165 

166; 

167: 

169 

169; 

170: 

171 

172: 

173: 

1?4: 

175; 

176; 

177: 

17B; 

179: 

160: 



END 



DO J = TO (COUNT-l>; 

bcdnum(j) = get^charj 
end; 

K = BCDNUM(COU!*T-l); < 

CALL PRINT$CHAR(' '); 

K = (K AND 7FH)J 

IF (SHR(K,4) < 4) THEN Kl » DEC(40H - K); 

ELSE Kl = DEC(K - 40H-6H), 

do while bcdnum<count-2) = 00hj 

count = count - u 
end; 
count = count - 2\ 

AO K2 = TO COUNT, 

CALL D$CHAR(SHR(BCDNUM(K2),4)); 

IF K2 = THEN CALL PRINT$CHA R(2EH) ? 

if n0t({k2=c0unt) and ((bcdnum(k2) and 0fh)=0)) then 
call l$char(bcdnum{k2) and 0fh)j 
end; 

call print$char(45h); 
ip (shr(k,4}' < 4) then 
do; 

call print$char(2dh); 

CALL. P",EXPON(Kl := Kl + 1)} 

ekd; 

ELSE CALL P$EXPON(Kl ;= Kl - 1 ) ; 
PRINT$BCDi 



PRINT$K£ST: 
DECLARE 
ENDP 
EQLS 
NEOS 
LBL 



PROCEDURE! 

LIT 
LIT 
LIT 
LIT 



'1H', 

'23H', 

'24H', 



J. 



l 8 i 
182; 

.183: 
lb4: 
18b: 
186; 
16?: 
188 : 

189: 

190; 

191 

192 

193; 

194 

.195: 

196 

19? 

193: 

199; 

200 

201 

202 

203: 

204 

205; 

2M S 

20?; 

208 ' 

209; 

210: 

211 

ti.Lt- < 

213: 
214: 
?'15: 
2 16 : 



LDII LIT '4H', 

ALL LI? '0BH' 

LITA LIT '0CH' 

BRL LIT '3EH' 

LLC LIT '3FH' 

PRO LIT '5H', 

ANDX LIT '32H' 

BOR LIT '33H' 

PAhH LIT '43H' 

PARMV LIT '44H' 

LDIB LIT '3H', 

WHTB LIT ■ '53H' 

WHTI LIT • '54H' 

WHTS LIT '55H' 

LDal LIT '4BH' 

KASE LIT . '4CH' 



IF CHAR = EN DP THEN 
DO » 

CALL P{ .( 'END ')) 

GO TO boot; 



END 
IF 

IF 



fcIND 



IF 

IF 
IF 
KKT 
P«I 



(CHAK-F 

(CHAH 

(CHAH=L 

(CHAH 

(CHAH 

CALL 

CHAR = 

CHAR * 

CHAf." 

urn; 
4t£hk'$t 



QLS) OK (CHAH^NEQS) OH- (CPAK»WHTB) ■ Oh (CHAR*WRTI) OR 
■WKTS) THEN DO! CALL DU)J RETURN! END! 
BL) OR (CHAHrLDir) OR (CHAR=ALL) OR (CHAR-LITA) OR 
=BRL) OR t'CHAR = BLC) OR (CHAR=PRO) OR (CHAR»ANDX) OR 



= B04) OR (CHAH=?ARM) OR 

D(2); return; end; 

KASK THEN DO! CALL D(4); RETURN; 
LDIB THEN DOf CALL PR lNT*BrD(8) » 
LDSI THEN DO? CALL WRIT£$STIilNG; 



CHAR=PARMV) THEN DO? 



end; 

return; 

return; 



end; 
end; 



217: 

218: 

219: 

220: 

221 : 

222: 

223: 

224: 

22b: 

226: 

227: 

228: 

229: 

230: 

231: 

232: 

233: 

234: 

235: 

236: 

237: 

238: 

239: 

240: 

241: 

242: 

243: 

244: 

245: • 

246: 

247: 

248: 

249: 

250: 

251 : 

252: 



/**.*.* PROGRAM EXECUTION STARTS HERE ***.*/ 



FCB$BYTE(32)', FCB$BYTE(0) = 0; 
DO I M TO 2f 

FCB$BYTE(I+9) = Fl LE$TY PE( I ) 

end; 

IF MON2(15,FCB) = 2 t _5 THEN 
POJ 

call p(.('zzzz '),] 
go to boot; 
end; 



DO WHILE 15 

IF GET'icHAR < 
CALL P( . 
CALL P( . 
CALL P( . 
CALL P( , 
CALL P( . 
CALL P( . 
CALL P( . 
CALL P( . 
CALL PC 
CALL P( . 
CALL P( . 
CALL P( . 
CALL P( . 
CALL P( . 
CALL >( • 
CALL P( . 
CALL F( . 



?2H 
'NOP 
'ENDP 
'LBL 
'LDIB 
'LDII 
'PRO 
'RTN 
'SAVP 
'UNSP 
'CNVB 
' G'N V: I 
'ALL 
'LITA 
'ADDB 
'ADDI 
'SUBB 
'SUBI 



THEN 
')) 
')) 
')) 
')) 
■'-)■•? 
')> 
'■)■)'• 
')} 
')) 
')>■ 
')) 
').) 
')) 
')) 
')) 
')) 
')) 



DO CASE CHAR 





253 


: CALL 


P< -1'MULB .....') 




254 


: CALL 


P(.('MULI ') 
P(.('DIVB ') 




255 


: CALL 




256 


: CALL 


P(.('DIVI ') 




257 


i CALL 


P( .-( 'HODX ') 




258 


i CALL 


P(.('EQLI ') 




259 


: CALL 


P(.('NEQI ') 




260 


: CALL 


P(.('iEQI ') 




261 


CALL 


P(.('GEQI ') 




262 


: CALL 


P(.('LSSI ') 




263 


CALL 


P(.('GTRI ') 




264 


: CALL 


P{.('XIN ') 




265 


CALL 


P( .( 'EQLB ') 




266 


CALL 


P( .( 'NEQB-') 




26? 


CALL 


P(.( 'LEQB ') 




268 


CALL 


F( .( 'GFOB ') 




269 


CALL 


P( .( 'LSSB '). 


> 


270 


CALL 


P( .( 'GRTB ') 


it- 


271 « 


CALL 


P(.('EQLS ') 




272: 


"!ALL 


P{ .( 'NEQS ') 




273- 


CALL 


P(.('LEQS ') 




274: 


CALL 


P(.{"GEQS ') 




275s 


CALL 


P( .( 'LSSS ') 




276: 


CALL 


P(".( 'GRTS ') 




277' 


CALL 


P( .( 'EQSET') 




276: 


CALL 


P( .( 'NEQST ') 




279: 


CALL 


P( .'. 'INCH') 




280- 


CALL 


P( .( 'INCL.2') 




281: 


CALL 


P( .{ 'NEGB ') 




262: 


CALL 


P(.('NEGI ') 




• 283: 


CALL 


p( ..( 'comb '■:■') 




284: 


CALL 


P{.('COMI ') 




295: 


CALL 


P(.('Ni)TX ') 




286 : 


CALL 


f'( .( 'ANDX '} 




287: 


CALL 


P(.('£OR ') 




268: 


CALL 


PC .( 'STOB '•) 



289 
290 
291 
292 
293 
294 
295 
296 
29? 
298 
299 
300 
301 
302 
303 
304 
30fc 
306 
30? 
308 
309 
310 
311 
312 
313 
■31.4 
315 
316 
31? 
318 
319 
320 
321 
322 
323 
324 



: CALL 


P( .( 'STOI ' 


J) 


: CALL 


P(l('STO ' 




: CALL 


P(.('STDB ' 




: CALL 


F{.('STDI ' 




CALL 


P(.('STD ' 




: CALL 


p; .( 'UNION' 




: CALL 


P( .( 'STDIF' 




: CALL 


P( .{ 'ISEC ' 




CALL 


P(.('CNAI ' 




: CALL 


P(.('ERL ' 




: CALL 


P(.{'BLC ' 




: CALL 


P{.('CN2I ' 




: CALL 


P{ .( 'MKSET' 




: CALL 


PUCXCHG ' 




: CALL 


P( . ('PARM '. 




CALL 


P( .( 'PARMV' 




call 


P( .( 'PARMX'l 




: CALL 


P(.('INC ' 




J CALL 


P(.('DEC '] 




: CALL 


P(.('DEL ') 




: CALL 


P(.('WRT ■') 




: CALL 


P(.('SUB ') 




: CALL 


P{,('LDSI ') 




: CALL 


P(.('CASE ') 




: CALL 


P(.{'LOD ') 




: CALL 


P( .('LODB ') 




: CALL 


P(.('LODl ') 




: CAuL 


P( .('HDVB ') 




: CALL 


P(.('HDVJ '; 




: CALL 


■P(.('HDVS ') 




: CALL 


P( .( 'WFfTB ') 




: CALL 


P(.('WKTI '! 




: CALL 


P( .<, 'WRTS ' ) 




: CALL 


P( .{ 'DUMP '.] 




: CALL 


P(.('AB3 ') 




: CALL 


P(.( 'SQR ') 


) 



325: 




CALL 


P(.('SIN ')) 


326: 




CALL 


P(.('COS ') 
?( .("AHCTN').) 


327* 




CALL 


328: 




CALL 


P(.('EXP ')) 


329: 




CALL 


P( .{ 'LN ')) 


330: 




CALL 


P( .( 'SORT ')) 


331: 




CALL 


P(.(. 'ODD ')) 


332: 




CALL 


P{ .( 'EOLN ')) 


333: 




CALL 


P(.('EXF ')) 


334: 




n CALL 


P( '.( 'TEUNC')) 


33d: 




CALL 


P( ,( 'ROUND')) 


336: 




CALL 


PUCCKD ')) 


337: 




CALL 


P(.('CHR ')) 


338: 




CALL 


P( .( 'SUCC ')) 


339: 




CALL 


P( .( 'PRED ')) 


34 ; 




CALL 


P( .( 'SEEK ')) 


341 : 




CALL 


P! .( 'PUT ')) 


342: 




CALL 


P(.("GET ".).) 


343: 




CALL 


P( .('RESET')) 


344 : 




CALL 


p( J ',::si/«T *');■) 


345: 




CALL 


P( .( 'PAGE ')) 


346: 




CALL 


P(.('NEW ')) 


347: 




CALL 


P( .( 'DISPZ' ) ) 


348: 




CALL 


Pl.('F¥D ')) 


349: 




Ci'iT.L 


P( .{ 'XTRNL' )) 


350: 




CALL 


P(.('RDV ')) 


351 : 




EN5 5 




352; 




CALL PRlNt$HFSTr 


353: 


SHI)] 




/* 


354: 


KUF 






355: 








356: 


h; 






357: 


> 







/'* OF CASE STATEMENT */ 
END OF DO WHILE */ 



as 

o 



1 : — ' — 

?t 

3: /* 

5: * * 

6 : * * 

7: * SYM80L$TABLE$PRINT0UT * 

• 8: * * 

9: * * 

11: */ 

12:: 

13: 

14: /* THIS PRGiRAM TAKES THE OUTPUT FROM THE PASCAL SYMEOL TABLE 

15: AND CONVERTS IT INTO A READABLE OUTPUT TO FACILITATE DEBUGGING */ 

16: 



po 17? 100H 



18: 

19: DECLARE 

20: 

21.5 LIT LITERALLY 'LITERALLY', 

22: BOOT LIT '0', 

23: BDOS LIT '5H", 

24: FCB ADDRESS INITIAL (5CH), 

25: FCB^BYTE BASED FCB (1) BYTE, 

26: I BYTE, 

2V: Ti-.UE LIT '1', 

2S: FALSE LIT '0', 

29: COPYING BYTE I.N ITIAL( TRUE ) , 

30: ADDR1 ADDRESS INITIAL (1!?0H), 

31: CHAR ?ASED ADDR1 BYTE, 

32: BUFF^FND LI?- 'OEFIi', 

33: ADDk Lit- 'ADDRESS', 

34: FGRMMASK LIT . '07H', 

35: DCL LIT 'DECLARE', 

36: PhOC LIT 'PROCEDURE', 



r ) 



37: KOFFILUr LIT '1AH', 

&i: Br.DNUM(a) BYTE, 

39: FILE$TYPI DATA ( 'S ' , 'K ' , 'M' ) , 

im FORM. BYTE, 

41: T.AM,E$STAhT ALDR. /* STARTING LOCATION AT COMPILATION */ 
42: OFFSET ADMf, /<' NFW VALUE OF TABLE ENTRY */ 

45: PARM$LISTIHG(10) ADDS, /* LOCATION 0"? SUBRTN FORMAL PAKAM LISTING */ 
44: SUBI.TN BYTE Mil TI AL ( til, 

45: PAKM$;JUfMK) BYTE, /* KEEPS COUNT OF NUMBER OF PARAMETFRS */ 
46: S'AVt$BASK A 1) Die „ /* FAVKS BASE LOCATION */ 

47: LPN BYTE? /* LENGTH OF PRlNTNAME */ 

48: 
.19: 

ft0: D(',L BASF ADDR, /"'BASE 07 CURRENT ENTRY */ 

-1- SBTBI.TOP ADDR, /^CURRENT TOP OF TABLE (SYM) */ 

E2: SETBL ADDH, 

in &5: PTR BAilED BASE BYTE, /* 1ST BYT? OF ENTRY */ 

54: APTRADDR ADDR, /* UTILITY VARIABLE TO ACCESS TABLE */ 

^5: ADuRPTR BASED APTRADDR A TDK, 

c>rt:.- PY7F.PTR BASED APTRADDR BYTE, 

& ? - PJ: IN^-NAME ADDR, /* SET PRIOR TO LOOKUP OR ENTER */ 

SB; SYMriASil BYTF, 

SSs UST$SflTBL$IP ADDR, 

60: PA1.AMNUMLOC ADDS, 

61: SBTBtSCOPE- ADDR; 

62: 
63: 
' : •.■■; • 64: 
65:' 
66: 

67: MON1: PROCEDURE (F,A>» 
6b: DECLARE FBYTE, A ADDRESS; 

69: GO TO BDOS 5 

70: END MO-NX j 
71: 
72: 



CO 
'0 



71 

?5: 
76 
??: 
7d; 
. 79; 
£•0: 
61 
62 
83: 
84 
65; 
66; 
87; 

88: 

89: 

90 

91 

92: 

93: 

94 

95: 

96: 

97: 

9b: 

99: 

100 
101 

102: 
103: 
104: 
105; 
106; 
107: 
10b: 



M0N2: PROCEDURE (F, A) BYTE? 

DECLARE F BYTE, A ADDRESS; 

GO TO BDOSJ 

RETURN 0; 
END M0N2J 



pk1nt$cha-r: procedure (char); 

declare chap. byte! 

call m0n1(2,crar); 
end print$char; 



CI.LF: PROCEDURE; 

CALL PRiNTiCHAR(13)} 
CALL PRINT£c.HAR( 10)1 

FND CHLFf 



PRINT: PhOC(A); 

DCL A ADDRJ 

CALL M0N1(9>A); 

END PRINT; 



GET&CHAK: PROCEDURE BYTE; 

IF (ADDkl :-ADDRl*l) > DUFF$KND THEN 

do; 

if mgm2(20,fcb) <> then 
do; 

call primt(. 'the end *,')', 

end; 



OS 



109; 

110 

111 

112; 

113: 

114 

115 

116; 

117; 

118; 

119: 

120: 

121 

122: 

123: 

124 

125: 

126: 

1 2? 

128: 

129 

13P: 

131 

132: 

133: 

134: 

1 35 ; 

1 36 : 

137: 

138: 

139; 

140: 

141 

142 

1 43 

144 



ADDRl=e0H5 

end; 

h.eturn char! 
end get^char? 



D$CHAK: PROCET>URE(.OUT?UT$BYTE) 5 

DECLARE OUTPUTiEYTE BYTE; 

IF OUTPUT^BYTE <• 10 THEN CALL PRINT$CHAR(OUTPUT$EYTE * 30H); 

ELSE CALL PR IN?$CHAh( OUTPUT$BYTE + 37H)i 
END I)$C HAH? 



PROCEDURE (COUNT); 
DECLARE (COUNT, J) AI/9«BSS; 
DO J---1 TO COUNT; 

CALL DiCHAf<(SHR(BYTE?TR t 4)); 
CALL D$CHAR(BYTEPTft AND £FH) »' 
APTHADDIi = APTRADDR t 1J 
! 



END 



FBI* 

d; 



PKlNTfBCD: ^ROCEDUHF (COUNT); 

BFCI.VHE (COUNT, J, K, Kl, K2) BYTE; 

P$EXPON: PKOC£DUI.E( 7ALU); 

DECLARE. (VALU, /■ COUNT1 ) BYTE; 
■ DECLARE DECK3) BYTE INITIAL (100,)i\l); 
DFCLAKE FLAG BYTE; 
FLAG = FALSE? 
DO X - TO 2'i 
COUNT! = 30HJ 
DO WHILE VALJ >'* DF.CI ( X ) J 






145 
146 
14? 
148 
14a 
150 
151 
152 
..153 
154 
155 
156 
15? 
156 
159 

161 
16k! 
1 65 
164 
165 
166 
167 
•166 
169 
170 
171 
172 
17.5 
174 
175 
176 
17? 
178 
179 
180 



VALU 
ThUE; 

« C0UNT1 



- dkci(x); 

15 



VALU = 
FLAG - 
COUNT! 

end; 

if flag oh (x >« 2) then 

CALL ?KlMT$CHAH(COUNTl)i 
ELSE CALL PF lNT$CHAh( ' '),* 

fnd; 
;<eturn; 
fnd h ex pon j 



DO J = 
BCDN 
APTfl 

end; 

K = BC 
CALL P 
K = (K 
IF (SH 
ELS E K 
DO WHI 
CO UN' 

end; 

COUNT 

DO K2 

CALL 

IE K 

IF N 

CA 

end; 

CALL P 
IF (SH 

do; 

CALL 
CALL 



TO (COUNT-1) ; 
UM(J) ± BYTFPTk; 
ADDR * APTKADDR +1 J 



-1) 



'); 



DNUM(COUNT- 
KlNT:?CHAH( 
AND ?FH j J 
R(K.4) C 4) THEN Kl 
1 = K - 40HJ 
LE BCDNUK{ COUNTS) ; 
T » COUNT - l; 



; 40 E 



k; 



COUNT - 2? 

to count; 
p$chah(shr(bci)mum(k2) ,4)1; 

2 - B THEN CALLPPlNTiCKAR(2EH); 

OT< (K2-CCUNT) AND ((tCDNUM(K2) AND 0FH)=0)) THEN 

LL D$CHAKUCDNUMi.K2) AND 0FH) J 



RINT>CHAh(15H); 
rt(K ,4) < 4) THEN 

PRINTSCHA1 (2DH); 
P$EXP0N(K1 N'K;-1 



1) 



I.) 



181 
182 
1B3 
184 
185 
186 
18? 
188 
189 
19(2 
1-31 
192 
193 
194 
195 
196 
19? 
1M 
199 
200 
201 
202 
203 
204 
205 
206 
20? 
208 
209 
210 
211 
212 
213 
214 
215 
216 



end; 

ELSE CALL P?FXPON(Kl 

end prlmt^bcd; 



Kl 



1) 



FCBiBYTE(32) f FCB$B?TE(0) ~ 0» 
DO I = TO 2; 

FCB$?.YTE(I+9) * FlLEiTYPE( I ) } 
INI); 

ik mqn2(15,fc£) = 255 then 
do; 

call pk int („ 'ekhor— gone to boot $'); 

go to boot! 
fnd; 



DISKERR: PkOCJ 
DO; 

CALL PRINT( - 'PE \ ' )', 
GOTO boot; 
EM',' 

END diskerh; 



PitlNTDFC: PHOC(VALUE); 

DCL VALUE ADM, I b Y i* ? , COUNT PYTE5 

DCL DFCI(b) ADDR I NITI A h( 100(10, 1000 , 100 ,10 , 1 ) ; 

DCL FLA (J BYTF5 



217; 

218: 

219: 

220; 

221 

2'd?\ 

223; 

224: 

225: 

226 

227: 

229 

229 

26a 

231 

232 

233 

234 

235 

23fi 

237 

238 

23i>: 

2413 

242; 

243 

244 

245 

246: 

247: 

24H: 

249: 

250: 

251 

252 



FLAG = FAI.SK; 
DO I = TO 4! 
COUNT = 30HJ 

DO WHILE VALUF >= DFCI(I); 
VALUE = VALUE - DECI (I); 

flag- true? ' 
count = count * v? 

end; 

if flag ch ( i>= 4) then 

CALL PHINTCHAMCOUNT); 
ELSE . 

CALL PKl.NTCHAlH ' ' )} 

end; 

return; 
end printbecj 



5ETADDRPTR: PROC (OFFSET ) J 

DCL OFFSET BYTE,' 

APTRADDK - EASE + OFFSET; 
fcND SFTADDRPTri; ' 



SEP* PAST* PN : PROC ( OFFS ET ) ! 

DCL OFFSET BYTE; 

CALL SFTADDIPTR(o); 

CALL SETADD1.PTR(PYTEPT. 
END 'StT$PAST$PN; 



f OFFSET); 



COPY$SRTBL: P1-OC-.5- 
DCL K addh; 
k = 0; 
. do while copying; 

call setaddr?th(k); 



t. 
4 



253: 

254: 

255 ; 

256; 

257; 

2 58 

259; 

260; 

261 

262: 

263: 

264 

265: 

266: 

267 

268; 

269: 

270 

271 

272; 

273: 

274 

275: 

276: 

277 : 

2?c 

279; 

23 Q- 

2 PI 

282 

283; 

284 

285: 

286 ; 

287 

2B8: 



3YTEPTH - GETCfsARJ 

K = K •♦ i; 

IF BYTEPTfi * FOFFILLP.R THTN 

do; 

X = K + 1; 

CALL SF.TAL'DIPTH(K); 

BYTEPTH •- GETCHAIt; 

jp BYTEPTR = EOFFILL^R THEN 

DO, 

COPYING = false; 

BYTiPTK •= 00HJ 

end; 
end; 



end; 
end co?y$sbtbl; 



afiSET$.LCCATlON: PhOC ( A ) ADDHJ 
DCL A ADD it ; 

offset = a - tari.e$staktj 
return offset? 
end heset$location; 



TAB1: PiOC; 

CALL PRINT{ 
END TAP.li 



TABS.' phoc; 

CALL TAB1 J 
CALL TABU 

END TAB2J 



y ) » 



289; 
290: 
291 
292: 
293: 
294: 
295: 
.296: 
29?: 
298; 
299: 
.'ii30/: 
301 
302; 
303 : 
304 
305: 
306: 
307 
308: 
309: 
310: 
311 
312; 
313: 
314 
315; 
316: 
317 
318: 
319: 
?20: 
321 
322 ; 
3 £3 : 
324 



WKITE$ENTRY: PROC» 

DO CASE (FORM AND 0?H)5 
CALL PHINT( .'LABEL 



end; 



CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
/* 



PhINT( 
PhlNT( . 
PRINK . 
PRINK . 
PR!MT( , 
PHINT( , 
PR I NT ( , 
CASE */ 



) 



ENTRY $'); 
'CONSTANT ENTrtY $ 
'TYPE ENTRY $')> 
'VAKIABLE ENTRY $')? 
'PROCEDURE ElMTitY $'); 
'FUNCTION ENTRY $')? 
'FILE! ENTRY $'■)', 
'USER DECLARED ENTRY 



D 



END WRITE$ENTRY| 



PRI'NT^ID: PKOC; 
DCL SIZE byte; 
CALL SFTADDRPTR(o); 

size -■■ byteptr; 
;■:: DO I = 1 TO "SIZE i i 

CALL SETADDR?TR{6>I >> 
CALL PR INT$CHAR( BYTEPTR) J 



END 



END 5 

CALL ChtFJ 

phint$id; 



RANGER: Pi-OC( A ) J 

DCL (A, BASED A DDR} 
BASE1 = Ai 

CALL SET$PAST$PN(7)i 

CALL CR-LF? 

CAIITAB?" 

CALL PRINT(.'rfITH LOW VALUE $ ' ) J 

IE (SHR( FORM,?' AND FORMMASK ) THEN 
CALL PRINKCKAMBYTEPTR); 

ELSE CALL PR I NT$DEC ( ADDRPTR ) ', 



325: CALL PRINT?.' ANT HIGH VAIUK £"=) i 

326: CALL Sl'T^PASTSPNO) ', 

32?; IF (SHR(FORM,?) AND FORMMASK) THStf 

32b: CALL PHINi'icKAH( RYTFPTR ) » 

329: ELSE CALL Pi. INT!?CEC ( ADDRPTfi ) J 

330: EN!) RANGER; 






332; 

333: 

334 

335 i 

336; 

33? 

338: 

339: 

340: 

341 

342' 

343: 

344 

346; 

34? 

o4.t«. 

354": 

351 

352: 

353: 

354: 

355: 

356: 

3 5V ; 

35 b : 

35-3: 

360; 



SHfi(FORM f 3) AMD FORMMASK); 



PRINT( . 'ENUMERATED TYPE - 

PHI NT $ id; 

PHINT(. 'THE VALUE IS $')» 

SETiPAST$PN(?); 

PHlNT$rEC(BYTEPTS)5 



■USEh$DEFINED: PR-OC ; 
DO CASE 

do; 
call print( . 'enumerated type - %.')] 

CALL 
CALL 
CALL 
CALL 

end; 

dc; 
do case (shr(form.e) and formmask); 
call p1(int(.'an fnumfratsd su'brangf *' 
call print (.'ad integer subrange | • '.) } 
call phi nt (.'a character subrange $')s 

end; /•*• OF CASE *./ 
CALL RANGER (LASE) 5 
END} 

do; 

CALL PRINff . 'AN ARRAY $')> 

call setaddrptr(5); 

j - byteptr; 

CALL crlf; 

CALL TAB25 

CALL PR I NT (.'WITH COMPONENT TYPE $ ' ) J 

CALL SE?ADDRPTR(10)» 

t& CASE BYTSPTHJ 

C1LI PR1MT( . 'SCALAR i')', 

CALL PHINT( . 'INTKGER $'); 



>; 



t J. - 

5x; 



361 

362; 

363 i 

364 

365 i 

366: 

36? 

368: 

369; 

370; 

371 

372: 

373: 

374 ; 

375 : 

376: 

377 ^ 

378; 

379: 

380; 

381 

382 ; 

363 : 

384: 

365: 

386; 

'387; 

368; 

389; 

390 

391 

392 

393; 

394; 

395 ; 

396: 



CALL 
CALL 
CALL 
CALL 

FNDi / 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 



PRINK 
Pit I NT ( 
FKINT( 
PRINT ( 



'CHAR $'); 
'REAL ir); 

'STRING £')} 
'BOOLEAN $') 



OF CASE */ 
PRINK. ' AND REQUIRES $')! 
SETADDhPTR{8); 
PHINKDEC(ADDRPTR); 

ph1nt(.' bytes of storage$'); 
crlf; 



TAB2J 

PRINK. 'THERE IS/ARK $'); 
?klNT$DEC(I)> 

PRINK.' DIMENSIONS IN THIS ARRAY $') 
SETADDRPTRO); 
ro WHILE I <> 0J 

APTPADDR r APTRADDh * 2\ 
CALL RANGEfl(ADDRPTR) ; 

i*i- i; 

end; 



end; 
Do; 

END? 

do; 

CALL. 
CALL 



PRINT ( .'A SET OF 
SETADDRPTM5); 



$'); 



SAVEBASE = BASE;. 



BASE 
CALL 
BASE 
END? 

do; 

CALL 
CALL 



= KESETUOCATION(ADDRPTR); 
PRINT 4 id; 
v= SAVE$EASt;; 



fKlNT ( . 'A FILE OF *?')] 

SETADDRPift(5); 
SAVEBASE = BASE; 
BASE - KESETHOCATION( ADDRPTH); 






39? . 

393; 

399: 

400 

401 

402: 

403; 

404 

405; 

406; 

40?: 

40e 

40S : 

410: 

411 

412: 

413 

41 4 : 

415; 

416: 

41?; 

418: 

419: 

420; 

4 21 

422: 

423; 

424; 

42 b; 

426: 

4 27; 

428: 

429: 

430 : 

431 

132: 



CALL 


printed; 






BASE 


* savebase; 






end; 








do; 








CALL 


PhINT( . 'A POINTER 


OF 


TYPE 


CALL 


SETADDRPTH(5); 






SAVF^BASE = BASE? 






BASE 


« KLSETnOCATIONHDDkPTH); 


CALL 


PKINTflD* 






BASE 


« SAVE^BASEi 






end; 








end; /* OP CASF */ 







V) 



END U.SERSDEFINED 



CHECK^COLLISION: PROC; 
CALL SETADDKPTR(6); 



LPN 

CALL 

CALL 

CALL 

CALL 

CALL 

IF 



*■■)".; 



el: 



eytepth; 

TABU 

PRINT{ . 'HASH VALUE 
SETADDRPTR(b); 
PRIMT$PEC(BYTEPTR); 
SETAI)DHPTR(0)l 
ADDRPTR = 00-H THEN 

CALL PHINT(„' AMD THERE ARE NO PREVIOUS COLLISIONS $')5 

t w) ; 

DO WHILE AD-DRPTh 



table$stakt; 





APTKJ 


i'DR = 


addhptr; 








CALL 


PHINT( 


.' WHICH 


COLLIDES 




CALL 


PRINT? 


id; 








CALL 


setaddkptr(0); 








CALL 


crlf; 










CALL 


TAB2; 








ENE 


; 










IF 


ADDhPT.F 


f * 00H 


THEN 








CALL 


PR I NT ( 


..' AND THERE 


ARE 



WITH $'): 



NO FURTHER COLLISIONS $'); 



433: 

434 : 

435: 

436: 

43V: 

438 : 

439 : 

440: 

441: 

442: 

443: 

444: 

445: 

446: 

447: 

448: 

449: 

450 : 

451: 

452: 

453: 

454 : 

455: 

456: 

45?: 

4 53: 

459: 

460: 

461: 

462 : 

463: 

4 64: 

465: 

466 : 

4 67 : 

466: 



ELSE DC 



CALL 



END J 
CALL 



end; 
crlf; 



PRINT(.' ANY OTHER COLLISIONS OCCUK IN THE BUILT*')} 
PR1NT(.'-IN SYMBOL TABLE WHICH IS INACCESSABLE £')} 



END CHKCK$COLLISION» 



ENTRY $H HAD: i>hOC ; 

CALL *HITE£ENTRr; 

call pf.int£id; 

CALL CHECK icOLLISI ON? 
CALL TABli 

END entry$hpad; 



CHFCK^TYPE: PROC(A); 
DCL A byte; 
DCL TYPE BYTE; 
TYPE = (SHRU, 3) AMD E0RMMASK ) J 

ro case Typs; 

/* SCALAR-ORDINM'E *'/ 

CALL PRINT(.' SCALAR ORDINATE $'); 

/* INTEGER */ 

CALL PRINT( . ' INTEGElf $'); 

/* CHARACTER «/ 

CALL PRIN'M.' CHARACTER $')} 

/* REAL */ 

CALL PRINT( . ' REAL $"■).? 

/* COMPLEX */ 

DO? 

SAVE$BASE - BASK 

CALL SET$PVST$PN 'J) ] 

BASE = KT."r'i il.Or ATION ( ADDRPTh ) ; 

CALL SETA DDK »\-ltA)i 



469: 

i?0: 

471 

472 

47i 

474: 

475: 

476 ; 

477 

47L 

479; 

460: 

481 

4 82 ; 

485: 

48*: 

485: 

4b6: 

487. 

488: 

489-1 

4 30: 

491 

492: 

493: 

494. 

495: 

496; 

49?-.: 

49d: 

49b 

50f 

501 

502 

503: 

504 





iy Jv«rp TH AND FOHMtMASK) 




CALL „SEh£DFFINED; 




LLSE i ^. printed; 




EA^E ; - :>AYE£BA3EJ 




fnd; 




/* BOOLEAN */ 




call PhiNTf . 'boolean £'); 


j!;;<d; 


/* CASE TYPE */ 


CALL 


cklf; 


CALL 


tabi; 



Wi' 



•HVN 



END CmE-:<C<>TYPF; 



PRINT<P 

dcj. 

IF 



ELS 
CAL 
CAP 
CAI 
PS I 



RT: PR 

A BYT 

A = i2 

CALL 



CO ( A ) J 

f; 

THEN 
PR IN P( 

pRiia( 



END 



PH 



E CALL 

L 'iETSPAST^PNUif. 

L PfiINTiDEC(ADDH.PTR)r 

; RLE; 

u r nt- 



'THE ASSIGNED FhT LOCATION FOR THE S BP IS $')» 
'THE ASSIGNED FRY LOCATION IS £'); 



T$T,A'Pt T : .PtiOC 

vALL s.a'iiri:miu 

CALL PtVIMTv . '■'■'■J'HE ASSIGNED LABEL VALUE IS £ ' ) J 

C.'.:.L SET^PAST^PM^}; 

C.A I, L PR III 1' £ I.i EC U DD h PT II ) » 

call chle; 

hlND PH I MTiLABKLJ 



PR, 



T£CONST 



^«LL 
CA! 



PR: 
BMTH ; Y-'!!-: 



PRIN'IN 'i'HK CONSTAT TYPE 13 £') 



-J 



505 




CALL PRINT(.'THE CONSTANT VALUE *• $ 


506 




CALL SET!?PAST$PN(7); 


50? 




CALL PKINT$DEC(ADDi<PTR); 


503 


: END 


PR I NT^CONST; 


509 






510 






511 


: PRINT$TYFE: PHOC; 


•512 




CALL ENTRlf$READ; 


513 




CALL PHN?(. 'THE PAPr;NT TY P £ IS $') 


514 




DO CASE (SHU {'FORM, 3) "'AND FORMMASK)? 


515 




CALL PFINT(. 'INTEGER $'); 


516 




CALL PRINT(. 'REAL 3 ' ) ; 


517 




CALL PrtlNT(. 'CKAH i ')? 


518 




CALL PRINT(. 'BOOLEAN * ')? 


519 




do; 


520 




CALL SET$PAST$fN(7)J 


521 




SAVE$"ASE = BASE; 


522 




BASE = RBSET^LOCATION(ADDrtPTR); 


523 




CALL SETADDf J PTR(4); 


524. 




IF (BYTEPTh AND FOliMMASKf = 07H 


5? 5; 




call user$i)ehned; 


526: 




ELSE CALL PKlNTilD: 


587-' 




BASE = SAVEiBASE? 


528 : 




end; 


529. 




end; /* OF CASE */ 


530: 


END 


PR I NT!; TYPE; 


531: 






532: 






533; 


PR I f 


JT$VARIABLE: PHOC5 


534: 




CALL entrv^head; 


535: 




CALL PRINT?. 'THE VA1HA3LE 'TXFS IS i ■ '$ 


536: 




CALL CHECKiTYPE(FOi.H); 


537: 




CALL PRINTiPRT(?}; 


538: 


F.NI; 


pRi:rr^VARiAbLE; 


539: 




■ ; '-■ : . 


540: 







$'■>; 



THEN 



en 



6.41 
54 : 2.i 
543; 
6rt4 

546: 

546: 

54? 

548: 

549: 

550 

551 

552 ; 

563.: 

554: 

555; 

556: 

557: 

559: 

559: 

560: 

561 

562: 

563: 

564, 

565: 

566: 

567: 

566: 

561 

57f; 

571 

572; 

573; 

574 

575; 

576: 



SUBROUTINE; PROC; 
LCL J BYTES 

CALL PHINTf. 'TUKkfc'AhB $')■} 
CALL SET$I'ASr$PN(?)j 

J ■=■ lyteptr; 

CALL P]UNTfD?C(BYTfpTh); 

CALL PRINT ( .. ' PAKAMKTiiU.S $')» 

CALL CRLFi 

CALL SEt$PAST$PN(«); 

PARMHI STING (SUfilt.TN : 'SIIFHTN+1 ) . APThADDR * RESET$LOCATlON( ADDRPTR) ; 

PAHMiNUMASUBR-TM) = JJ ' 



DO I 



■ 1U 



ENDS 
CALL 
.CALL 
CALL 
CALL 
CALL 
CALL 
CALL 



= 1 TO J? 
CALL TAB2.J 



CALL 
CALL 
CALL 



) 



y) 



PHIN'IM . 'NO. 
PIllNT$DEC(] 
TABU 

if shr(byteptr,7) 
do; 

IF SHR(UTRPTu,6) 
ELSR CALL PR I NT ( . 



THEN 



THEN 
VAh 



CALL 



PHINT(. ■' FUNCTION $')? 



PHI NT ( 

D; 



PrtOCEDIJhE $')? 



fnd; 

ELSE 

CALL 
CALL 

APTHADDR = 
/* DO I *./ 

PKiNTVPRTde-y; 

PHINT$PHT{12>; 

T A bi; 

PRINT(,'THV LABEL VALUE PRECEDING THE CODE Ii> $'); 

SETiPAST$PU(14); 

PHINT$I)FCC\DD!(PTH); 

CtiW, 

;utine» 



IF BYTEPTR =-■ 4 THEN CALL 
ELSE. CALL PRINT' . ' VALUE 
•PRINT( . 'PHAMETf.H OF TYPE 
CHECK $TYPF( FORM); 

APTRADDU + 3J 





577: 
578: 


Bi.ANCH; PhOCJ 






579: 


SBTUl = SBTbl 1- (5 * PAKM$NUM{ SUB1 




580: 


3UBHTN = SUBkTN - 


- i; 




561: 


END frKANCHj 






582: 








f 03 : 








564: 


P'MM'fPhbC: PhOC? 






585 : 


call entry$h'kad; 


..- ... :;'_'. 




566: 


call subroutine; 






567: 


END PKINT$PHOC; 






588: 








599: 








590: 


PhFNT$FUNC: PfOC 1 






591 : 


CALL entry$head; 






592; 


CALL PRINT(. 'THE 


FUNCTION TYPE IS 




593: 


CALL SKT$PAST$PN(16)J 


K> 


594: 


FORM * BYTklPTRi 




•^1 


595: 


CALL CHECK$TYPK(FOl-.M); 




596 : 


CALL subkoutinh; 






597 : 


END PldNT^FUNCi 






598: 








599: 








600: 


PH!NT$FILE: PHOC; 






601: 


CALL ENTHY^HEAP; 






602: 


END PRINTS-FILE; 






603: 
604; 








605: 


SKIPPIF. : PiiOC; 






606: 


DO CASF.(SHR(?ORM, 


3) AND FOHMMASK); 




607: 


do; 






603: 


CALL SETADDKP 


?h(o); 




609: 


SB.THL «■ SBTBL 


+ 10 + byteptr; 




610: 


end; 






61.1; 


SBTEL ^ SBTBL + 


is; 




612: 


DC"! 





*').? 



-J 



613: 
614: 
615: 
616: 
61?: 
616: 
619: 
620 : 
6.21 ; 
622: 
623: 
624 ; 
62f>: 
626: 
627: 
.628 : 
62 J: 
630: 
631: 
632: 
633: 
634: 

$Mi 
637: 

63fc: 
630: 
64C: 
641 : 
642: 
643: 
644: 
645: 
646: 
647: 
649: 



CALL , setaddhptk{d); 

SBTBL -^ SBTBL + i'A t (2 * BTTliPTii)J 

enp; 
do; 

IF FORM = H'li THFN SBTBL = SBTBL r 3; 
ELSE do; 

CALL SETADPhJ" ''ll{6)i 
SBTBL - SbTBL + 14 + BYTEPTR; 
HMD; 
END:? 
•SBTBL » SBTBL + 7: 
SBTBL = SBTBL + ?» 
SBTBL = SBTBL + 71 
end; /* OF CASE */ 
ENP sxippek; 



STARS: PBOC; 
CALL CRLFi 
CALL PHI NT 
CALL CRI.lr 

end; 



'.^•i : v >r% v-l ! <•* <"!: **)!•• >r *>;•• :;- i*. sfc# >jF $ # # $ #'$ $ W^^i^WWtiMWWW ' ) J 



BASF, SBTBL * .MEMORY'} 

CALL COPY^SBTPL; /* PLACE SYMfcTBL AT TOP OF MEMORY */ 

CALL SFTADPRPTh-(4); 

FOKM * lyteptk; 

PO CASE (FOrtM ANT» FOKMhASK ) i 

c;ll ,sft.*past$pn(ii ); 
do; 

CALL SETADDKPTJiU); 

IT SHi.CBYTLPTh ,4) W 

ELSE CALL SE'T^ PAS'i"?Pt 

end;. 



M CALL 

( u ) ; 



tT^PASI'i ?W(17}J 



CO 



649; 

61-<M 

651 : 

652; 

653: 

654 : 

655: 

656: 

657: 

658 : 

669; 

660: 

661: 

662: 

663 : 

664: 

665: 

666 : 

66?: 

66H: 

669 : 

670: 

671: 

672': 

673 : 

674 : 

675: 

6?6; 

677 : 

678: 

679: 

680: 

6 t? 1 : 

662 : 

683: 

6e4: 



CALL SFT$?" <!"PN(11)$ 
CALL S-FT?i- . "iPNdljj; 
CALL S bT$l J . ' V°N(18> J 
CALL SRTilV ■'•PN(19); 
CALL SET$PA-' ' N(J); 

» / :;< THIS EN J IS IMPOSSIBLE FOB THE FIRST ENTRY */ . 
END! /* CASE EOPM *"./ 

/* SET Tilt! VALUE FOR THE STARTING LOCATION OF THE SYMBOL TABLE */ 

TABLF^STAHT = ADPRPTK5 

/* STfthT ■*/ 

CALL SF.TADDKPTfKZ* ; 

PC) WHILE ArPHPT^O 00Hi 

CALL SETADDK'PTh (4); 

FORM P MTFPTR; 

CALL STARS; 

DO CASE 'BYTiPTt- AND FOl-MMASK); 

/* LABEL V 
Do; 

CALL P'rlNT'LABELJ 

sbtbl «. sitbl + 9 + lpn; 
end; . 

■ •/* constant */ 
do; 

CALL PnlNTtCOMSTi 

SBTPL « SBTBL + 9 + LPN J 
END; 
/* 1'YpE */ 

do; >f: 

CALL PRINT*. TYPE? f ':'' 

sbtbl = sbtbl + 9 + lpn j 
end; 

/* variable */ 
po; 

CALL PPINT^VARIABLP; 
SBTfL = SBTBL + 11 + LPN; 

end; 



1-J 



e:S5: /* procedure *y • 

6>6: DO; 

6t>7:. CALL PHINTiPROCi 

668: SBTBL * SBTBL + 16 + LPNJ , 

689: EIJD; 

690: /* FUNCTION */ 

691: DO: 

692: CALL PHI Ul'i FUNC ', 

693: SBTBL : - SBTBL + 1? + LPNJ 

694: END'; 

695: /* FILE V 

696: DO? 

697: CALL PiUNTiFILFj 

69b: SBTBL ~ SBTBL + ? + LPNJ 

699: END! •: 

700: /* USEP. DEFINED ENTRY */ 

701: DO? ■ 

702; CALL SKIPPER? 

703: END; 

704: END; /* OF CASE *'/ 

705': IF SBTBL - ?AHM$LJ STI NG( SUMTN ) THEN CALL BitANCHi 

706: BASE -^ SBTBL,' 

707: CALL SETADDhPTR(2); 

708: END; 

709: CALL CblVi 

710: CALL PRINTS . 'THE CONTENTS OF THE SYMhOL TABLE HAVE BEEN PRINTED. $'•)} 

711: GO TO BOOT; 

712: FOF 
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